Anthony Reinke

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)

Nebraska Football

Anthony Reinke — Fri, 27 May 2011 19:57:07 +0000

Can’t wait for football to start!

IPad2

Anthony Reinke — Thu, 14 Apr 2011 13:56:55 +0000

Work got me a new ipad2. At first I thought it would be a fun toy with a little use in the work place. Being mainly a windows and Linux user I wasn’t looking forward to a device I can’t get in to the guts to tweak. I thought rooting the iPad, but since it is a work owned device I figured I shouldn’t. I have found the lack of flash very very annoying. Some of the sites I use a lot use flash for different parts. Splunk and Google use flash a lot in their tools.

But I do like the design of the iPad. I have it easy to adopt to. I have spent around $75 in apps to get it usable in my day to day jobs. I a disappointed in how many apps only run in the iPhone mode and you have to double to screen size and they don’t rotate with your screen. There are still some apps that I am looking for that I can’t find. This is causing me to look in to developing them myself. Digging in to that I found that apple really only wants you to develop on a Mac. My company is ok with us getting the enterprise developer license but that still leaves the issue of not having a Mac device to use for programming.

There has to be a way!

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