Anthony Reinke » geek

Installing SNMP through the Command Line – Part 2

Anthony Reinke — Wed, 01 Feb 2012 22:01:19 +0000

I added a batch script I wrote to install SNMP on a bunch of machine back on Jan. 14, 2012 (http://www.anthonyreinke.com/2012/01/14/installing-snmp-through-the-command-line/). I have since modified the script. Changing the file from a .bat to a .cmd will allow you to right click and run as administrator on Windows 2008. Also I noticed in 2008, it defaults in to having the localhost as the only system that can communicate to the SNMP Service.

PsExec.exe @hosts.txt -s -c installsnmp.cmd

Below is the file to download. Rename the file to installsnmp.cmd
installsnmp.cmd.txt

As always, please contact me if you have questions.

@echo off

cls

REM Detect if the system is Windows Server 2003
systeminfo | find "2003" > nul
if %ERRORLEVEL% == 0 goto 2003

REM Detect if the system is Windows XP
systeminfo | find "XP Pro" > nul
if %ERRORLEVEL% == 0 goto XPPro

REM Detect if the system is Windows XP
systeminfo | find "2008" > nul
if %ERRORLEVEL% == 0 goto 2008

REM If the system is Windows Vista, Windows Server 2008, or higher, 
REM they have the required files built in.
goto ERROR

:2003
REM If Windows 2003, set the path to the i386 directory
REM Note: The path needs to be one level above the i386 directory
REM Example: if the path is \\server\share\windows2003\i386\ then
REM the path would be \\server\share\windows2003\
REM Note that the you need both a 32bit and 64bit versions

if (%PROCESSOR_ARCHITECTURE%) == (AMD64) (
echo Windows Registry Editor Version 5.00
echo.
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup]
echo "SourcePath"="\\\\server\\share\\Extracted\\Win2003x64\\"
echo "ServicePackSourcePath"="\\\\server\\share\\Extracted\\Win2003x64\\"
) > %temp%\setW2003Path.reg

IF (%PROCESSOR_ARCHITECTURE%) == (x86) (
echo Windows Registry Editor Version 5.00
echo.
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup]
echo "SourcePath"="\\\\server\\share\\Extracted\\Win2003\\"
echo "ServicePackSourcePath"="\\\\server\\share\\Extracted\\Win2003\\"
) > %temp%\setW2003Path.reg

REM Installing the created Registry File
regedit /s /q %temp%\setW2003Path.reg

goto SNMP

:XPPro
REM If Windows XP Professional, set the path to the i386 directory
REM Note: The path needs to be one level above the i386 directory
REM Example: if the path is \\server\share\windowsXP\i386\ then
REM the path would be \\server\share\windowsXP\
if (%PROCESSOR_ARCHITECTURE%) == (AMD64) (
(
echo Windows Registry Editor Version 5.00
echo.
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup]
echo "SourcePath"="\\\\server\\share\\Extracted\\XPProx64\\"
echo "ServicePackSourcePath"="\\\\server\\share\\Extracted\\XPProx64\\"
) > %temp%\setXPProPath.reg
) ELSE IF (%PROCESSOR_ARCHITECTURE%) == (x86)
(
echo Windows Registry Editor Version 5.00
echo.
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup]
echo "SourcePath"="\\\\server\\share\\Extracted\\XPPro\\"
echo "ServicePackSourcePath"="\\\\server\\share\\Extracted\\XPPro\\"
) > %temp%\setXPProPath.reg
)

REM Installing the created Registry File
regedit /s /q %temp%\setXPProPath.reg.reg

goto SNMP

:2008
REM Since 2008 stopped using the sysocmgr.exe to install features, in Vista and higher
REM you need to use the servermanagercmd.exe to add features. A great list of the 
REM features and their command line install string is at:
REM http://www.techrepublic.com/blog/datacenter/install-windows-server-2008-features-with-servermanagercmd/294

servermanagercmd.exe -install SNMP-Services

goto Strings

:SNMP
REM Building the Unattended Install

(
echo ;SetupMgrTag
echo [NetOptionalComponents]
echo SNMP=1
echo [SNMP]
echo Any_Host=YES
) > %temp%\snmp.txt

REM Installing the SNMP application with the Unattended Install

sysocmgr /i:%windir%\inf\sysoc.inf /u:%temp%\snmp.txt

goto Strings

:Strings

REM Removing the public string
(
echo Windows Registry Editor Version 5.00
echo.
echo [-HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SNMP\Parameters\ValidCommunities]

REM Removing the only allow localhost communication, by default 2008 will only allow the 
REM localhsot to talk to the SNMP service
echo [-HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\services\SNMP\Parameters\PermittedManagers]

REM Setting the SNMP strings
echo.

REM Setting the SNMP Contact Info
echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SNMP\Parameters\RFC1156Agent]
echo "sysContact"="Server Administrators"
echo "sysLocation"="Server Room"
echo "sysServices"=dword:0000004f
echo.
REM Setting the Read Only and Read Write Communities
echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SNMP\Parameters\ValidCommunities]
echo "readonly"=dword:00000004
echo "readwrite"=dword:00000008
echo.
REM Creating the Permitted Managers Key
echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\services\SNMP\Parameters\PermittedManagers]
echo.
) > %temp%\setupsnmp.reg

REM Installing the created Registry File

regedit /s /q %temp%\setupsnmp.reg

REM Cleaning Up

IF EXIST %temp%\setupsnmp.reg del %temp%\setupsnmp.reg
IF EXIST %temp%\setW2003Path.reg del %temp%\setW2003Path.reg
IF EXIST %temp%\setXPProPath.reg.reg del %temp%\setXPProPath.reg.reg
IF EXIST %temp%\snmp.txt del %temp%\snmp.txt

echo %COMPUTERNAME% Complete >> \\server\share\SNMP\SNMPInstall.txt

goto END

:ERROR
echo.
echo Could not determine the OS type
pause

goto END

:END

Installing SNMP through the Command Line

Anthony Reinke — Sun, 15 Jan 2012 04:18:59 +0000

I needed a way to mass install SNMP to the servers in my environment. The problem I was having was Microsoft Windows Server 2003 needing files from the CD. We don’t copy the i386 directory from the CD for two reasons. We store the files on the network and drive space is limit on a lot of servers. The batch script will check if the server is 2003. If it is 2003, it will point the install cd to a network path or a local path. Next it builds the unattended install file. Once the file is written, the system will add the SNMP feature per the unattended file. After SNMP is installed, the registry keys are set for the SNMP community strings. Lastly the script removes the temporary files it created.

Use this script in combination to PSTools’ PSExec and you can mass install. Create a list of systems you want to install this on and call it hosts.txt. Each server needs to be on it’s own line and it is best to use the fully qualified name or IP Address. Copy the hosts.txt and installsnmp.bat file in to your PSTools directory and run the following command:

PsExec.exe @hosts.txt -s -c installsnmp.bat

Download the Install SNMP Batch File, just rename to a .bat file.

@echo off

echo %COMPUTERNAME% Started >> \\server\share\SNMP\SNMPInstall.txt

REM Detect if the system is Windows Server 2003
systeminfo | find "2003" > nul
if %ERRORLEVEL% == 0 goto 2003

REM Detect if the system is Windows XP
systeminfo | find "XP Pro" > nul
if %ERRORLEVEL% == 0 goto XPPro

REM If the system is Windows Vista, Windows Server 2008, or higher, 
REM they have the required files built in.
goto SNMP

:2003
REM If Windows 2003, set the path to the i386 directory
REM Note: The path needs to be one level above the i386 directory
REM Example: if the path is \\server\share\windows2003\i386\ then
REM the path would be \\server\share\windows2003\
REM Note that the you need both a 32bit and 64bit versions

if (%PROCESSOR_ARCHITECTURE%) == (AMD64) (
(
echo Windows Registry Editor Version 5.00
echo.
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup]
echo "SourcePath"="\\\\server\\share\\Extracted\\Win2003x64\\"
echo "ServicePackSourcePath"="\\\\server\\share\\Extracted\\Win2003x64\\"
) > %temp%\setW2003Path.reg
) ELSE IF (%PROCESSOR_ARCHITECTURE%) == (x86)
(
echo Windows Registry Editor Version 5.00
echo.
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup]
echo "SourcePath"="\\\\server\\share\\Extracted\\Win2003\\"
echo "ServicePackSourcePath"="\\\\server\\share\\Extracted\\Win2003\\"
) > %temp%\setW2003Path.reg
)

REM Installing the created Registry File
regedit /s /q %temp%\setW2003Path.reg

goto SNMP

:XPPro
REM If Windows XP Professional, set the path to the i386 directory
REM Note: The path needs to be one level above the i386 directory
REM Example: if the path is \\server\share\windowsXP\i386\ then
REM the path would be \\server\share\windowsXP\
if (%PROCESSOR_ARCHITECTURE%) == (AMD64) (
(
echo Windows Registry Editor Version 5.00
echo.
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup]
echo "SourcePath"="\\\\server\\share\\Extracted\\XPProx64\\"
echo "ServicePackSourcePath"="\\\\server\\share\\Extracted\\XPProx64\\"
) > %temp%\setXPProPath.reg
) ELSE IF (%PROCESSOR_ARCHITECTURE%) == (x86)
(
echo Windows Registry Editor Version 5.00
echo.
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup]
echo "SourcePath"="\\\\server\\share\\Extracted\\XPPro\\"
echo "ServicePackSourcePath"="\\\\server\\share\\Extracted\\XPPro\\"
) > %temp%\setXPProPath.reg
)

REM Installing the created Registry File
regedit /s /q %temp%\setXPProPath.reg.reg

goto SNMP

:SNMP
REM Building the Unattended Install

(
echo ;SetupMgrTag
echo [NetOptionalComponents]
echo SNMP=1
echo [SNMP]
echo Any_Host=YES
) > %temp%\snmp.txt

REM Installing the SNMP application with the Unattended Install

sysocmgr /i:%windir%\inf\sysoc.inf /u:%temp%\snmp.txt

goto Strings

:2008
REM Since 2008 stopped using the sysocmgr.exe to install features, in Vista and higher
REM you need to use the servermanagercmd.exe to add features. A great list of the 
REM features and their command line install string is at:
REM http://www.techrepublic.com/blog/datacenter/install-windows-server-2008-features-with-servermanagercmd/294

servermanagercmd.exe -install SNMP-Services

goto Strings

:Strings

REM Removing the public string
(
echo Windows Registry Editor Version 5.00
echo.
echo [-HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SNMP\Parameters\ValidCommunities]

REM Setting the SNMP strings
echo.
echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SNMP\Parameters\RFC1156Agent]
echo "sysContact"="Server Administrators"
echo "sysLocation"="Server Room"
echo "sysServices"=dword:0000004f
echo.
echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SNMP\Parameters\ValidCommunities]
echo "readonly"=dword:00000004
echo "readwrite"=dword:00000008
) > %temp%\setupsnmp.reg

REM Installing the created Registry File

regedit /s /q %temp%\setupsnmp.reg

REM Cleaning Up

IF EXIST %temp%\setupsnmp.reg del %temp%\setupsnmp.reg
IF EXIST %temp%\setW2003Path.reg del %temp%\setW2003Path.reg
IF EXIST %temp%\setXPProPath.reg.reg del %temp%\setXPProPath.reg.reg
IF EXIST %temp%\snmp.txt del %temp%\snmp.txt

echo %COMPUTERNAME% Complete >> \\server\share\SNMP\SNMPInstall.txt

Automating a New Email Profile

Anthony Reinke — Tue, 08 Nov 2011 20:50:20 +0000

I have been helping a company move to a new cloud based email system. They needed to update everyone’s mail profile. In this follow VBScript, it builds a .prf file to be imported in with the correct fields for the user and servers. Near the top of the script there is a section to be filled out by a person that knows the Exchange environment, Exchange Administrator.

‘ Define our servers and paths

strProxy = “”
strAutoDiscoverProxy = “”
strProfileName = “”
strHomeServer = “”
strRPCProxyPrincipalName = “”

The script will ask the user their primary email address. For the company I was helping out they had multiple email domains so we needed them to select their primary. It then will ask them to confirm what they typed.

SetupNewOutlook

#####################################

‘++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
‘ Add email profile for Another Exchange Provider
‘++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Option Explicit
On Error Resume Next’ Declare our varibles
Dim template, strInput, intAnswer, strProxy, strAutoDiscoverProxy, strProfileName, strHomeServer, strRPCProxyPrincipalName’ Define our servers and paths Examples
strProxy = “” ‘ strProxy = “webmail.yourdomain.com”
strAutoDiscoverProxy = “” ’ strAutoDiscoverProxy = “https://webmail.yourdomain.com/autodiscoverproxy/autodiscover.xml”
strProfileName = “” ‘ strProfileName = “New Cloud Email”
strHomeServer = “” ‘ strHomeServer = “MyExchangeServer”
strRPCProxyPrincipalName = “” ’ strRPCProxyPrincipalName = “msstd:webmail.yourdomain.com”‘ This loop section is here to have the user verify their email address
‘ Starting the Loop. This will loop from this point until the answer is Yes
Do Until intAnswer = vbYes

‘ Asking the user their primary email address
strInput = UserInput( “Please enter your primary email address:” )

‘ This is asking the user to confirm their primary email address
intAnswer = _
Msgbox(“Completing reconfiguration of Outlook for email address: ” & strInput & vbCr & “This is correct?”, _
vbYesNo, “Confirm Email Address”)

‘ This will loop the script back to the start of the Loop function. If the user click
‘ Yes, then the function will exit the loop. If the user answered No, the function will
‘ start over and prompt the user for their primary email address.
Loop

Function UserInput( myPrompt )
‘ This function prompts the user for some input.
‘ When the script runs in CSCRIPT.EXE, StdIn is used,
‘ otherwise the VBScript InputBox( ) function is used.
‘ myPrompt is the the text used to prompt the user for input.
‘ The function returns the input typed either on StdIn or in InputBox( ).
‘ Written by Rob van der Woude
‘ http://www.robvanderwoude.com
‘ Check if the script runs in CSCRIPT.EXE
If UCase( Right( WScript.FullName, 12 ) ) = “\CSCRIPT.EXE” Then
‘ If so, use StdIn and StdOut
WScript.StdOut.Write myPrompt & ” “
UserInput = WScript.StdIn.ReadLine
Else
‘ If not, use InputBox( )
UserInput = InputBox( myPrompt )
End If
End Function

template = “;Automatically generated PRF file” & VbCrLF &_
VbCrLF &_
“; **************************************************************” & VbCrLF &_
“; Section 1 – Profile Defaults” & VbCrLF &_
“; **************************************************************” & VbCrLF &_
VbCrLF &_
“[General]” & VbCrLF &_
“Custom=1″ & VbCrLF &_
“ProfileName=Cloud Email” & VbCrLF &_
“DefaultProfile=No” & VbCrLF &_
“OverwriteProfile=No” & VbCrLF &_
“ModifyDefaultProfileIfPresent=FALSE” & VbCrLF &_
“BackupProfile=No ” & VbCrLF &_
“DefaultStore=Service1″ & VbCrLF &_
VbCrLF &_
“; **************************************************************” & VbCrLF &_
“; Section 2 – Services in Profile” & VbCrLF &_
“; **************************************************************” & VbCrLF &_
VbCrLF &_
“[Service List]” & VbCrLF &_
“ServiceX=Microsoft Outlook Client” & VbCrLF &_
“ServiceEGS=Exchange Global Section” & VbCrLF &_
“Service1=Microsoft Exchange Server” & VbCrLF &_
“ServiceEGS=Exchange Global Section” & VbCrLF &_
“Service2=Outlook Address Book” & VbCrLF &_
VbCrLF &_
“;***************************************************************” & VbCrLF &_
“; Section 3 – List of internet accounts” & VbCrLF &_
“;***************************************************************” & VbCrLF &_
VbCrLF &_
“[Internet Account List]” & VbCrLF &_
VbCrLF &_
“;***************************************************************” & VbCrLF &_
“; Section 4 – Default values for each service.” & VbCrLF &_
“;***************************************************************” & VbCrLF &_
VbCrLF &_
“[ServiceX]” & VbCrLF &_
“CachedExchangeMode=0×00000002″ & VbCrLF &_
“CachedExchangeSlowDetect=TRUE” & VbCrLF &_
VbCrLF &_
“[ServiceEGS]” & VbCrLF &_
“CachedExchangeConfigFlags=0×00000100″ & VbCrLF &_
“MailboxName=” & strInput & VbCrLF &_
“HomeServer=” & strHomeServer & VbCrLF &_
“RPCoverHTTPflags=0x002f” & VbCrLF &_
“RPCProxyServer=” & strProxy & VbCrLF &_
“RPCProxyPrincipalName=msstd:” & strRPCProxyPrincipalName & VbCrLF &_
“RPCProxyAuthScheme=0×0001″ & VbCrLF &_
VbCrLF &_
“[Service1]” & VbCrLF &_
“OverwriteExistingService=No” & VbCrLF &_
“UniqueService=No” & VbCrLF &_
“MailboxName=” & strInput & VbCrLF &_
“HomeServer=” & strHomeServer & VbCrLF &_
“AccountName=Microsoft Exchange Server” & VbCrLF &_
VbCrLF &_
“;***************************************************************” & VbCrLF &_
“; Section 5 – Values for each internet account.” & VbCrLF &_
“;***************************************************************” & VbCrLF &_
VbCrLF &_
“;***************************************************************” & VbCrLF &_
“; Section 6 – Mapping for profile properties” & VbCrLF &_
“;***************************************************************” & VbCrLF &_
VbCrLF &_
“[Microsoft Exchange Server]” & VbCrLF &_
“ServiceName=MSEMS” & VbCrLF &_
“MDBGUID=5494A1C0297F101BA58708002B2A2517″ & VbCrLF &_
“MailboxName=PT_STRING8,0×6607″ & VbCrLF &_
“HomeServer=PT_STRING8,0×6608″ & VbCrLF &_
“OfflineAddressBookPath=PT_STRING8,0x660E” & VbCrLF &_
“OfflineFolderPath=PT_STRING8,0×6610″ & VbCrLF &_
VbCrLF &_
“[Exchange Global Section]” & VbCrLF &_
“SectionGUID=13dbb0c8aa05101a9bb000aa002fc45a” & VbCrLF &_
“MailboxName=PT_STRING8,0×6607″ & VbCrLF &_
“HomeServer=PT_STRING8,0×6608″ & VbCrLF &_
“RPCoverHTTPflags=PT_LONG,0×6623″ & VbCrLF &_
“RPCProxyServer=PT_UNICODE,0×6622″ & VbCrLF &_
“RPCProxyPrincipalName=PT_UNICODE,0×6625″ & VbCrLF &_
“RPCProxyAuthScheme=PT_LONG,0×6627″ & VbCrLF &_
“CachedExchangeConfigFlags=PT_LONG,0×6629″ & VbCrLF &_
VbCrLF &_
“[Microsoft Mail]” & VbCrLF &_
“ServiceName=MSFS” & VbCrLF &_
“ServerPath=PT_STRING8,0×6600″ & VbCrLF &_
“Mailbox=PT_STRING8,0×6601″ & VbCrLF &_
“Password=PT_STRING8,0x67f0″ & VbCrLF &_
“RememberPassword=PT_BOOLEAN,0×6606″ & VbCrLF &_
“ConnectionType=PT_LONG,0×6603″ & VbCrLF &_
“UseSessionLog=PT_BOOLEAN,0×6604″ & VbCrLF &_
“SessionLogPath=PT_STRING8,0×6605″ & VbCrLF &_
“EnableUpload=PT_BOOLEAN,0×6620″ & VbCrLF &_
“EnableDownload=PT_BOOLEAN,0×6621″ & VbCrLF &_
“UploadMask=PT_LONG,0×6622″ & VbCrLF &_
“NetBiosNotification=PT_BOOLEAN,0×6623″ & VbCrLF &_
“NewMailPollInterval=PT_STRING8,0×6624″ & VbCrLF &_
“DisplayGalOnly=PT_BOOLEAN,0×6625″ & VbCrLF &_
“UseHeadersOnLAN=PT_BOOLEAN,0×6630″ & VbCrLF &_
“UseLocalAdressBookOnLAN=PT_BOOLEAN,0×6631″ & VbCrLF &_
“UseExternalToHelpDeliverOnLAN=PT_BOOLEAN,0×6632″ & VbCrLF &_
“UseHeadersOnRAS=PT_BOOLEAN,0×6640″ & VbCrLF &_
“UseLocalAdressBookOnRAS=PT_BOOLEAN,0×6641″ & VbCrLF &_
“UseExternalToHelpDeliverOnRAS=PT_BOOLEAN,0×6639″ & VbCrLF &_
“ConnectOnStartup=PT_BOOLEAN,0×6642″ & VbCrLF &_
“DisconnectAfterRetrieveHeaders=PT_BOOLEAN,0×6643″ & VbCrLF &_
“DisconnectAfterRetrieveMail=PT_BOOLEAN,0×6644″ & VbCrLF &_
“DisconnectOnExit=PT_BOOLEAN,0×6645″ & VbCrLF &_
“DefaultDialupConnectionName=PT_STRING8,0×6646″ & VbCrLF &_
“DialupRetryCount=PT_STRING8,0×6648″ & VbCrLF &_
“DialupRetryDelay=PT_STRING8,0×6649″ & VbCrLF &_
VbCrLF &_
“[Personal Folders]” & VbCrLF &_
“ServiceName=MSPST MS” & VbCrLF &_
“Name=PT_STRING8,0×3001″ & VbCrLF &_
“PathToPersonalFolders=PT_STRING8,0×6700 ” & VbCrLF &_
“RememberPassword=PT_BOOLEAN,0×6701″ & VbCrLF &_
“EncryptionType=PT_LONG,0×6702″ & VbCrLF &_
“Password=PT_STRING8,0×6703″ & VbCrLF &_
VbCrLF &_
“[Unicode Personal Folders]” & VbCrLF &_
“ServiceName=MSUPST MS” & VbCrLF &_
“Name=PT_UNICODE,0×3001″ & VbCrLF &_
“PathToPersonalFolders=PT_STRING8,0×6700 ” & VbCrLF &_
“RememberPassword=PT_BOOLEAN,0×6701″ & VbCrLF &_
“EncryptionType=PT_LONG,0×6702″ & VbCrLF &_
“Password=PT_STRING8,0×6703″ & VbCrLF &_
VbCrLF &_
“[Outlook Address Book]” & VbCrLF &_
“ServiceName=CONTAB” & VbCrLF &_
VbCrLF &_
“[LDAP Directory]” & VbCrLF &_
“ServiceName=EMABLT” & VbCrLF &_
“ServerName=PT_STRING8,0×6600″ & VbCrLF &_
“UserName=PT_STRING8,0×6602″ & VbCrLF &_
“UseSSL=PT_BOOLEAN,0×6613″ & VbCrLF &_
“UseSPA=PT_BOOLEAN,0×6615″ & VbCrLF &_
“DisableVLV=PT_LONG,0×6616″ & VbCrLF &_
“DisplayName=PT_STRING8,0×3001″ & VbCrLF &_
“ConnectionPort=PT_STRING8,0×6601″ & VbCrLF &_
“SearchTimeout=PT_STRING8,0×6607″ & VbCrLF &_
“MaxEntriesReturned=PT_STRING8,0×6608″ & VbCrLF &_
“SearchBase=PT_STRING8,0×6603″ & VbCrLF &_
VbCrLF &_
“[Microsoft Outlook Client]” & VbCrLF &_
“SectionGUID=0a0d020000000000c000000000000046″ & VbCrLF &_
“FormDirectoryPage=PT_STRING8,0×0270″ & VbCrLF &_
“WebServicesLocation=PT_STRING8,0×0271″ & VbCrLF &_
“ComposeWithWebServices=PT_BOOLEAN,0×0272″ & VbCrLF &_
“PromptWhenUsingWebServices=PT_BOOLEAN,0×0273″ & VbCrLF &_
“OpenWithWebServices=PT_BOOLEAN,0×0274″ & VbCrLF &_
“CachedExchangeMode=PT_LONG,0x041f” & VbCrLF &_
“CachedExchangeSlowDetect=PT_BOOLEAN,0×0420″ & VbCrLF &_
VbCrLF &_
“[Personal Address Book]” & VbCrLF &_
“ServiceName=MSPST AB” & VbCrLF &_
“NameOfPAB=PT_STRING8,0x001e3001″ & VbCrLF &_
“Path=PT_STRING8,0x001e6600″ & VbCrLF &_
“ShowNamesBy=PT_LONG,0×00036601″ & VbCrLF &_
VbCrLF &_
“; ************************************************************************” & VbCrLF &_
“; Section 7 – Mapping for internet account properties. DO NOT MODIFY.” & VbCrLF &_
“; ************************************************************************” & VbCrLF &_
VbCrLF &_
“[I_Mail]” & VbCrLF &_
“AccountType=POP3″ & VbCrLF &_
“;— POP3 Account Settings —” & VbCrLF &_
“AccountName=PT_UNICODE,0×0002″ & VbCrLF &_
“DisplayName=PT_UNICODE,0x000B” & VbCrLF &_
“EmailAddress=PT_UNICODE,0x000C” & VbCrLF &_
“;— POP3 Account Settings —” & VbCrLF &_
“POP3Server=PT_UNICODE,0×0100″ & VbCrLF &_
“POP3UserName=PT_UNICODE,0×0101″ & VbCrLF &_
“POP3UseSPA=PT_LONG,0×0108″ & VbCrLF &_
“Organization=PT_UNICODE,0×0107″ & VbCrLF &_
“ReplyEmailAddress=PT_UNICODE,0×0103″ & VbCrLF &_
“POP3Port=PT_LONG,0×0104″ & VbCrLF &_
“POP3UseSSL=PT_LONG,0×0105″ & VbCrLF &_
“; — SMTP Account Settings —” & VbCrLF &_
“SMTPServer=PT_UNICODE,0×0200″ & VbCrLF &_
“SMTPUseAuth=PT_LONG,0×0203″ & VbCrLF &_
“SMTPAuthMethod=PT_LONG,0×0208″ & VbCrLF &_
“SMTPUserName=PT_UNICODE,0×0204″ & VbCrLF &_
“SMTPUseSPA=PT_LONG,0×0207″ & VbCrLF &_
“ConnectionType=PT_LONG,0x000F” & VbCrLF &_
“ConnectionOID=PT_UNICODE,0×0010″ & VbCrLF &_
“SMTPPort=PT_LONG,0×0201″ & VbCrLF &_
“SMTPUseSSL=PT_LONG,0×0202″ & VbCrLF &_
“ServerTimeOut=PT_LONG,0×0209″ & VbCrLF &_
“LeaveOnServer=PT_LONG,0×1000″ & VbCrLF &_
VbCrLF &_
“[IMAP_I_Mail]” & VbCrLF &_
“AccountType=IMAP” & VbCrLF &_
“;— IMAP Account Settings —” & VbCrLF &_
“AccountName=PT_UNICODE,0×0002″ & VbCrLF &_
“DisplayName=PT_UNICODE,0x000B” & VbCrLF &_
“EmailAddress=PT_UNICODE,0x000C” & VbCrLF &_
“;— IMAP Account Settings —” & VbCrLF &_
“IMAPServer=PT_UNICODE,0×0100″ & VbCrLF &_
“IMAPUserName=PT_UNICODE,0×0101″ & VbCrLF &_
“IMAPUseSPA=PT_LONG,0×0108″ & VbCrLF &_
“Organization=PT_UNICODE,0×0107″ & VbCrLF &_
“ReplyEmailAddress=PT_UNICODE,0×0103″ & VbCrLF &_
“IMAPPort=PT_LONG,0×0104″ & VbCrLF &_
“IMAPUseSSL=PT_LONG,0×0105″ & VbCrLF &_
“; — SMTP Account Settings —” & VbCrLF &_
“SMTPServer=PT_UNICODE,0×0200″ & VbCrLF &_
“SMTPUseAuth=PT_LONG,0×0203″ & VbCrLF &_
“SMTPAuthMethod=PT_LONG,0×0208″ & VbCrLF &_
“SMTPUserName=PT_UNICODE,0×0204″ & VbCrLF &_
“SMTPUseSPA=PT_LONG,0×0207″ & VbCrLF &_
“ConnectionType=PT_LONG,0x000F” & VbCrLF &_
“ConnectionOID=PT_UNICODE,0×0010″ & VbCrLF &_
“SMTPPort=PT_LONG,0×0201″ & VbCrLF &_
“SMTPUseSSL=PT_LONG,0×0202″ & VbCrLF &_
“ServerTimeOut=PT_LONG,0×0209″ & VbCrLF &_
“CheckNewImap=PT_LONG,0×1100″ & VbCrLF &_
“RootFolder=PT_UNICODE,0×1101″ & VbCrLF &_
VbCrLF &_
“[INET_HTTP]” & VbCrLF &_
“AccountType=HOTMAIL” & VbCrLF &_
“Account=PT_UNICODE,0×0002″ & VbCrLF &_
“HttpServer=PT_UNICODE,0×0100″ & VbCrLF &_
“UserName=PT_UNICODE,0×0101″ & VbCrLF &_
“Organization=PT_UNICODE,0×0107″ & VbCrLF &_
“UseSPA=PT_LONG,0×0108″ & VbCrLF &_
“TimeOut=PT_LONG,0×0209″ & VbCrLF &_
“Reply=PT_UNICODE,0×0103″ & VbCrLF &_
“EmailAddress=PT_UNICODE,0x000C” & VbCrLF &_
“FullName=PT_UNICODE,0x000B” & VbCrLF &_
“Connection Type=PT_LONG,0x000F” & VbCrLF &_
“ConnectOID=PT_UNICODE,0×0010″ & VbCrLF

Dim objShell, fso
Set objShell = WScript.CreateObject(“WScript.Shell”)
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘Check for valid windows version
If Not CheckWindowsVersion Then
ExitWithError(“UnsupportedVersion”)
End If

‘Get Outlook Path
Dim outlookPath
outlookPath = GetOutlookPath
If outlookPath = “” Then
ExitWithError(“OutlookNotFound”)
End If

‘Check that Outlook does not running
Dim answer
Do While True
If CheckOutlookIsRunning Then
answer = MsgBox(GetString(“OutlookIsRunning”), vbRetryCancel ,GetString (“MessageCaption”))
If answer = vbCancel Then
WScript.Quit
End If
Else
Exit Do
End If
Loop

‘Adjust Outlook registry settings
AdjustSettings

‘ Configure Autodiscover for Custom email address
Dim customEmail
customEmail = “”

If customEmail <> “” Then
ConfigureAutodiscover customEmail
End If

‘Create temporary file for Outlook profile
Dim tempFile, tempFileName
tempFileName = GetTempFileName
If Err.Number <> 0 Then
ExitWithError(“ProfileCreateError”)
End If
Set tempFile = fso.CreateTextFile(tempFileName, true, true)
If Err.Number <> 0 Then
ExitWithError(“ProfileCreateError”)
End If

‘Write profile to file
tempFile.Write(template)
If Err.Number <> 0 Then
ExitWithError(“ProfileWriteError”)
End If
tempFile.Close

‘Start Outlook
objShell.Exec(outlookPath + ” /importprf “”" + tempFileName + “”"”)

Function CheckWindowsVersion

On Error Resume Next
Dim objWMI, colOS, objOS, version
set objWMI = GetObject(“winmgmts:\\.\root\cimv2″)
set colOS = objWMI.InstancesOf(“Win32_OperatingSystem”)

For Each objOS in colOS
version = objOS.Version
If objOS.OSType = 18 Then
If Left(version, 1) > 5 Then
‘ Windows Vista or Windows Server 2008
CheckWindowsVersion = True
Exit Function
ElseIf Left(version, 1) = 5 And Mid(version, 3, 1) = 2 Then
If objOS.OtherTypeDescription = “R2″ Then
‘ Windows Server 2003 R2
CheckWindowsVersion = True
Exit Function
ElseIf objOS.ProductType = 1 Then
‘ Windows XP Professional x64 Edition
CheckWindowsVersion = True
Exit Function
Else
‘ Windows Server 2003
If objOS.ServicePackMajorVersion = 0 Then
‘ no any Service Pack
CheckWindowsVersion = False
Exit Function
End If
CheckWindowsVersion = True
Exit Function
End If
ElseIf Left(version, 1) = 5 And Mid(version, 3, 1) = 1 Then
‘Microsoft Windows XP
If objOS.ServicePackMajorVersion > 1 Then
‘ SP2 or later
CheckWindowsVersion = True
Exit Function
ElseIf objOS.ServicePackMajorVersion = 1 Then
‘ SP1, check for installed KB331320
Err.Clear
objShell.RegRead(“HKLM\SOFTWARE\Microsoft\Updates\Windows XP\SP1\KB331320\”)
If Err.Number = 0 Then
CheckWindowsVersion = True
Exit Function
End If
End If
End If
End If
Next
CheckWindowsVersion = False

End Function

Function GetOutlookPath

On Error Resume Next
Dim CLSID, path

‘ First of all check simple location
path = objShell.RegRead(“HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE\”)
If path <> “” Then
GetOutlookPath = path
Exit Function
End If

CLSID = objShell.RegRead(“HKLM\Software\Classes\Outlook.Application\CLSID\”)
If Err.Number <> 0 Then
GetOutlookPath “”
Exit Function
End If
path = objShell.RegRead(“HKLM\Software\Classes\CLSID\” & CLSID & “\LocalServer32\”)

‘ Does need to check alternative path ?
if path = “” Then
path = objShell.RegRead(“HKLM\SOFTWARE\Wow6432Node\Classes\CLSID\” & CLSID & “\LocalServer32\”)
End If

‘ If we have an error path will be empty
GetOutlookPath = path

End Function

Function CheckOutlookIsRunning

On Error Resume Next
Dim objWMIService, processList
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2″)
Set processList = objWMIService.ExecQuery(“Select * from Win32_Process Where Name = “”outlook.exe”"”)
If processList.Count > 0 Then
CheckOutlookIsRunning = True
Exit Function
End If
CheckOutlookIsRunning = False

End Function

Sub AdjustSettings

objShell.RegWrite “HKCU\Software\Microsoft\Exchange\Client\Options\PickLogonProfile”, “1″, “REG_SZ”

End Sub

Function GetTempFileName

Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
tname = fso.GetTempName
tfile = fso.BuildPath(tfolder.Path, tname)
GetTempFileName = tfile

End Function

Function ExitWithError(stringId)

MsgBox GetString(stringId), vbOKOnly, GetString(“MessageCaption”)
WScript.Quit

End Function

Function GetString(stringId)

Dim messageCaption, outlookNotFound, outlookIsRunning, profileCreateError, profileWriteError, unsupportedVersion
messageCaption = “Outlook Profile Configuration Script”
outlookNotFound = “Unable to locate Microsoft Outlook installation path.”
outlookIsRunning = “Configuration script has determined that Microsoft Outlook is running. Please shut down it and then click Retry.”
profileCreateError = “Unable to create a temporary file for profile.”
profileWriteError = “Unable to save profile into temporary file.”
unsupportedVersion = “Unsupported version of Microsoft Windows. ” & vbLf & “” & vbLf & “The following versions of Microsoft Windows are supported: ” & vbLf & ” – Microsoft Windows XP with Service Pack 2 ” & vbLf & ” – Windows Server 2003 with Service Pack 1 ” & vbLf & ” – or a later operating system”
Dim retStr
Select Case stringId
Case “MessageCaption”
If messageCaption = “” Or Mid(messageCaption, 2, 1) = “4″ Then
retStr = “Outlook Profile Configuration Script”
Else
retStr = messageCaption
End If
Case “OutlookNotFound”
If outlookNotFound = “” Or Mid(outlookNotFound, 2, 1) = “5″ Then
retStr = “Unable to locate Microsoft Outlook installation path.”
Else
retStr = outlookNotFound
End If
Case “OutlookIsRunning”
If outlookIsRunning = “” Or Mid(outlookIsRunning, 2, 1) = “6″ Then
retStr = “Configuration script has determined that Microsoft Outlook is running. Please shut down it and then click Retry.”
Else
retStr = outlookIsRunning
End If
Case “ProfileCreateError”
If profileCreateError = “” Or Mid(profileCreateError, 2, 1) = “7″ Then
retStr = “Unable to create a temporary file for profile.”
Else
retStr = profileCreateError
End If
Case “profileWriteError”
If profileWriteError = “” Or Mid(profileWriteError, 2, 1) = “8″ Then
retStr = “Unable to save profile into temporary file.”
Else
retStr = profileWriteError
End If
Case “UnsupportedVersion”
If unsupportedVersion = “” Or Mid(unsupportedVersion, 2, 1) = “9″ Then
retStr = “Unsupported version of Microsoft Windows. ” & vbLf & “” & vbLf & “The following versions of Microsoft Windows are supported: ” & vbLf & ” – Microsoft Windows XP with Service Pack 2 ” & vbLf & ” – Windows Server 2003 with Service Pack 1 ” & vbLf & ” – or a later operating system”
Else
retStr = unsupportedVersion
End If
Case Else
retStr = stringId
End Select
GetString = retStr
End Function

Sub ConfigureAutodiscover(email)

On Error Resume Next
Dim configTemplate
configTemplate = “” & VbCrLF &_
“” & VbCrLF &_
” ” & VbCrLF &_
” ” & VbCrLF &_
” email” & VbCrLF &_
” redirectUrl” & VbCrLF &_
” ” & strAutoDiscoverProxy & “” & VbCrLF &_
” ” & VbCrLF &_
” ” & VbCrLF &_
“” & VbCrLF

Dim folder
Dim objEnv
‘ Get collection by using the Environment property.
Set objEnv = objShell.Environment(“Process”)
folder = objEnv(“APPDATA”) + “\Outlook\”

‘ Check that Outlook is available
Dim ver
ver = objShell.RegRead(“HKCR\Outlook.Application\CurVer\”)
If Err.Number <> 0 Then
Exit Sub
End If

‘ Outlook.Application.XX -> XX
ver = Right(ver, 2)

Dim mailDomain, configFilePath, configFile
mailDomain = Mid(email, Instr(email, “@”) + 1)
If Not fso.FolderExists(folder) Then
fso.CreateFolder(folder)
End If
configFilePath = folder & mailDomain & “.xml”
Set configFile = fso.CreateTextFile(configFilePath, True)
configFile.Write(configTemplate)
configFile.Close
objShell.RegWrite “HKCU\Software\Microsoft\Office\” & ver & “.0\Outlook\AutoDiscover\” & mailDomain, configFilePath, “REG_SZ”
End Sub

Cisco Routers, Stop the Stopping

Anthony Reinke — Tue, 18 Oct 2011 19:41:53 +0000

In my current job I am also the network guy. It is not a skill set I am strong in but I am learning A LOT. One of the things I have just been dealing with is the “—MORE —” in the putty screen when I issue a command that goes beyond my current screen height. When I do a “show config” or “show ip route”, I get a few pages of information back. If I want to then copy it off I have to go back and remove the “— MORE —”. I just found a command that is saving me.

“terminal length 0″

Setting the terminal length to zero tells the router to not do a page break. WOW, is this my new favorite command!

Exporting from 2003

Anthony Reinke — Mon, 10 Oct 2011 14:29:29 +0000

There are still people using 2003 as I found out. While helping convert from 2003 to a web based email solution for Exchange, I needed to export a full list of email addresses. I was searching for a while on Google before I found a quick and easy way to export the list.

ldifde -d "DC=domain,DC=com" -r "(&(mailnickname=*))" -l proxyAddresses -f emailaddresses.txt

-d set the domain you are connecting to

-r set the filter for the query

-l set the query to list the attribute(s) you are looking for

-f tells the query to write to the following filename

X-Files

Anthony Reinke — Mon, 06 Jun 2011 00:59:24 +0000

BBC America ran an X-File marathon a week or so ago. I miss the X-Files. There is just so much that is unexplained. I love physics and science in general. Anyways, here are the quotes from the episodes that weren’t the default “The Truth Is Out There”. I have worked for the government before and I loved to throw these in my email signature.

Trust No One — “The Erlenmeyer Flask”
Deny Everything — “Ascension”
éí ‘aaníígÓÓ ‘áhoot’é — “Anasazi” (Navajo: The truth is out there)
Apology is Policy — “731″
Everything Dies — “Herrenvolk” (German: Master race)
Deceive Inveigle Obfuscate — “Teliko”
E pur si muove — “Terma” (Italian: And still it moves — attributed to Galileo)
Believe the Lie — “Gethsemane”
All Lies Lead to the Truth — “Redux”
Resist or Serve — “The Red and the Black”
The End — “The End”
Die Wahrheit ist irgendwo da draußen — “Triangle” (German: The truth is out there.. somewhere)
In the Big Inning — “The Unnatural” (a baseball-themed episode)
Amor Fati — “Sixth Extinction II: Amor Fati” (Latin: Love of fate)
Believe to Understand — “Closure”
Nothing Important Happened Today — “Nothing Important Happened Today II”
erehT tuO si hturT ehT — “4D” (The Truth is Out There backwards)
They’re Watching — “Trust No 1″
Dio ti ama — “Improbable” (Italian: God loves you)

Hacker Stickers, Geek T-Shirts and Caffeine

Anthony Reinke — Wed, 13 Apr 2011 13:20:45 +0000

We all know that hackers are a proud group. We like to show off our talents like most proud parents of their honor roll students with bumper stickers. Except we don’t just plaster our cars. We put our stickers on everything. Our laptops, ipads, servers, desks, walls, and everything else they can stick to. We all wear our talents as battle armor with our t-shirts. There is almost a t-shirt for every type of nerdly, geekly, hackish, crackerish, or other weirdly thing we do. And with our late nights pouring over code or taking things apart just to see how they work (and making them better in the process), you might need a little boost. Here comes the caffeine. Before you had cubes of Mountain Dew or mounts of Jolt Cola, but now we have pure caffeine mints, energy strips, and jolt gum.

So where can you get all this?????

Goto HackerStickers.com
Hacker Stickers, Geek T-Shirts and Caffeine

FBI needs you!

Anthony Reinke — Wed, 30 Mar 2011 13:22:25 +0000

On June 30, 1999, sheriff’s officers in St. Louis, Missouri discovered the body of 41-year-old Ricky McCormick. He had been murdered and dumped in a field. The only clues regarding the homicide were two encrypted notes found in the victim’s pants pockets.

Pictures of notes and more details here:
http://www.fbi.gov/news/stories/2011/march/cryptanalysis_032911/cryptanalysis_032911

Follow up to “Information Gathering on My Own Servers”

Anthony Reinke — Mon, 24 Jan 2011 07:29:23 +0000

On January 17th, 2011 I wrote about a script I wrote to gather information on my network (http://www.anthonyreinke.com/?p=384). I ran the scan a few time with a lot of errors. The issues were due to the different domains. It can’t scan all the machines since it runs as the person running. It doesn’t have the ability to try multiple different credentials.

So I started looking for products to get the information. After a lot of trail and errors I found Lansweeper. This software gives you the incite in to your network that is hard to find. It not only scans the machines, but active directories as well. As for the price, it is hard to bet at $299 per year.

Information Gathering on My Own Servers

Anthony Reinke — Mon, 17 Jan 2011 20:33:59 +0000

Currently I am having an issue with not knowing information about the servers I am responsible. I am not happy not knowing things. I spent a little time gather different parts of different scripts (hacker / script kiddie style) and compiling them in to one Visual Basic Script. This script is designed to work against Dell Servers. It will ask the computer for it name, the OS, OS version number, Service Packs, Bit Level (32 or 64 bit), Dell Warranty info, list of local users, and a list of local groups and the users in the groups. It takes the list of servers from “hosts.txt” which is just a list of servers or ip addresses where there is one per line. It will write all the information it gathers in to a file called “report.txt”.

Download the .VBS File

Here is the code:

Option Explicit

Dim url, svctag, wshShell, wshNetwork

Dim strComputer, colGroups, objGroup, objUser

Dim objWMIService, colItems, objItem

Dim warrantyRows, warrantyCols

Dim objsvc,svccount, errorChecking,svc,objNetwork,colAccounts

Dim get_OS_Bit, info, strComputer2, oReg, strKeyPath, strValueName, strValue

Dim objShell, objIE, objWMI

Dim colOSes, objOS

Dim objFSO, objTextFile, objTextFileW, objTextFileO, strNextLine, arrServiceList

Dim i, result

Const ForReading = 1

Const ForAppending = 8

Set objFSO = CreateObject(“Scripting.FileSystemObject”)

Set objTextFileW = objFSO.OpenTextFile (“report.txt”, ForAppending, True)

Set objFSO = CreateObject(“Scripting.FileSystemObject”)

Set objTextFileO = objFSO.OpenTextFile _

(“hosts.txt”, ForReading)

Do Until objTextFileO.AtEndOfStream

strNextLine = objTextFileO.Readline

arrServiceList = Split(strNextLine , “,”)

strComputer = arrServiceList(0)

wscript.echo strComputer

On Error Resume Next

Set colOSes = objWMIService.ExecQuery(“Select * from Win32_OperatingSystem”)

For Each objOS in colOSes

objTextFileW.Writeline “########################################”

objTextFileW.Writeline

objTextFileW.Writeline “========================================”

objTextFileW.Writeline “== Computer Info ==”

objTextFileW.Writeline “========================================”

objTextFileW.WriteLine “Computer Name : ” & objOS.CSName

Next

objTextFileW.WriteLine

Set objWMI = GetObject(“winmgmts:\” & strComputer & “rootCIMV2″)

Set colItems = objWMI.ExecQuery(“SELECT * FROM Win32_OperatingSystem”,,48)

For Each objItem in colItems

objTextFileW.WriteLine “Operating System : ” & objItem.Caption

objTextFileW.WriteLine “OS Version Number : ” & objItem.Version

objTextFileW.WriteLine “Service Pack : ” & objItem.ServicePackMajorVersion

objTextFileW.WriteLine

Next

const HKEY_LOCAL_MACHINE = &H80000002

Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & strComputer & “rootdefault:StdRegProv”)

strKeyPath = “HARDWAREDESCRIPTIONSystemCentralProcessor”

strValueName = “Identifier”

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

if (instr(strValue,”x86″)) then

get_OS_Bit=”32″

elseif (instr(strValue,”64″)) then

get_OS_Bit=”64″

else

get_OS_Bit=”NotSure”

end if

objTextFileW.WriteLine “OS is : ” & get_OS_Bit & “bit”

objTextFileW.WriteLine

objTextFileW.Writeline “========================================”

objTextFileW.WriteLine “== Get the Dell warranty information ==”

objTextFileW.Writeline “========================================”

url = “http://support.dell.com/support/topics/global.aspx/support/my_systems_info/details?c=us&cs=RC956904&l=en&s=hied&~lt=bodyonly&~wsf=tabs&servicetag=”

set objIE=createobject(“internetexplorer.application”)

set objShell = WScript.CreateObject(“WScript.Shell”)

set objWMI = GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & strComputer & “rootcimv2″)

If InStr(UCase(objWMI.ExecQuery(“Select Manufacturer From Win32_ComputerSystem”).ItemIndex(0).Manufacturer), “DELL”) = 0 then Err.Raise 2, “This is not a Dell dude!”, “No Service Tag”

svctag = objWMI.ExecQuery (“Select SerialNumber from Win32_BIOS”).ItemIndex(0).SerialNumber

Set objWMIService = GetObject(“winmgmts:” _

& “{impersonationLevel=impersonate}!\” _

& strComputer & “rootcimv2″)

objTextFileW.WriteLine “Service Tag : ” & svctag

objIE.navigate url & svctag

do while objIE.readystate<>4 : wscript.sleep 50 : loop

set warrantyRows = objIE.document.getElementsByTagName(“table”).item(1).getElementsByTagName(“table”).item(2).getElementsByTagName(“table”).item(0).getElementsByTagName(“tr”)

For i = 1 to warrantyRows.length – 1

set warrantyCols = warrantyRows.item(i).getElementsByTagName(“td”)

objTextFileW.WriteLine “Description : ” & warrantyCols.item(0).innerText

objTextFileW.WriteLine “Provider : ” & warrantyCols.item(1).innerText

objTextFileW.WriteLine “Warranty Extension : ” & warrantyCols.item(2).innerText

objTextFileW.WriteLine “Start Date : ” & warrantyCols.item(3).innerText

objTextFileW.WriteLine “End Date : ” & warrantyCols.item(4).innerText

objTextFileW.WriteLine “Days Left : ” & warrantyCols.item(5).innerText

objTextFileW.WriteLine

Next

objTextFileW.Writeline “========================================”

objTextFileW.WriteLine “== List all local users ==”

objTextFileW.Writeline “========================================”

Set objNetwork = CreateObject(“Wscript.Network”)

‘strComputer = objNetwork.ComputerName

Set colAccounts = GetObject(“WinNT://” & strComputer & “”)

colAccounts.Filter = Array(“user”)

For Each objUser In colAccounts

objTextFileW.WriteLine “Local User : ” & objUser.Name

Next

objTextFileW.WriteLine

objTextFileW.Writeline “===========================================”

objTextFileW.WriteLine “== List all local groups and their users ==”

objTextFileW.Writeline “===========================================”

Set colGroups = GetObject(“WinNT://” & strComputer & “”)

colGroups.Filter = Array(“group”)

For Each objGroup In colGroups

objTextFileW.WriteLine “Group : ” & objGroup.Name

For Each objUser in objGroup.Members

objTextFileW.WriteLine “User : ” & objUser.Name

Next

objTextFileW.WriteLine

Next

objTextFileW.WriteLine “== List all services ==”

set objsvc = GetObject(“winmgmts:{impersonationLevel=impersonate}\” & strComputer & “rootcimv2″).ExecQuery (“SELECT * FROM Win32_Service”)

for each svc in objsvc

objTextFileW.WriteLine “Service : ” & svc.displayname

objTextFileW.WriteLine “Current Status : ” & svc.state

objTextFileW.WriteLine “Startus Type : ” & svc.startmode

objTextFileW.WriteLine “Run Server As : ” & svc.startname

objTextFileW.WriteLine

next

objTextFileW.WriteLine

Loop

objTextFileW.Close