Blog

‘vbscriptConst HKEY_CURRENT_USER = &H80000001strComputer = “.”Set objReg = GetObject(“winmgmts:\” & strComputer & “rootdefault:StdRegProv”) objReg.SetDWORDValue HKEY_CURRENT_USER,”SoftwareMicrosoftWindowsCurrentVersionInternet Settings”,”ProxyEnable”,1objReg.SetStringValue HKEY_CURRENT_USER,”SoftwareMicrosoftWindowsCurrentVersionInternet Settings”,”ProxyServer”,”proxy:port”objReg.SetStringValue HKEY_CURRENT_USER,”SoftwareMicrosoftWindowsCurrentVersionInternet Settings”,”strValue “, “<local>”objReg.SetDWORDValue HKEY_CURRENT_USER,”SoftwareMicrosoftWindowsCurrentVersionInternet Settings”,”EnableAutodial”,0

‘vbscriptConst HKEY_LOCAL_MACHINE = &H80000002strComputer = “.”Set objReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & _     strComputer & “rootdefault:StdRegProv”) objReg.SetDwordValue HKEY_LOCAL_MACHINE,”SOFTWAREMicrosoftWindowsCurrentVersionPoliciesSystem”,”EnableLUA”,1

REM Batch FileREM Disable Hibernatepowercfg -h off

REM Disables IPv6‘vbscriptConst HKEY_LOCAL_MACHINE = &H80000002strComputer = “.”Set objReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & _     strComputer & “rootdefault:StdRegProv”) objReg.SetDwordValue HKEY_LOCAL_MACHINE,”SYSTEMCurrentControlSetServicesTcpip6Parameters”,”DisabledComponents”,255

‘requries pslist.exe from sysinternals (http://technet.microsoft.com/en-us/sysinternals/bb545021) Set wshShell = Wscript.CreateObject (“WScript.shell”)        strProfile =     inputbox(“Enter Computer Name”,”Enter Computer Name”)        wshshell.run “cmd.exe /c pslist.exe -s 30 -r 1 \” & strprofile        set wshshell = nothing

 Dim strFolder        Dim arrServers        Dim strProfile        strProfile = “C$usersadministrator” arrComputers =     Array(“server1″,”server2”)        Set objFSO = CreateObject(“Scripting.FileSystemObject”)        sOutput=”Script Results for:” & strprofile & vbcrlf & vbcrlf                For EACH strComputer in arrComputers        sOutput = sOutput & objFSO.FolderExists (“\”& strComputer & strProfile) & vbtab & strComputer & vbcrlf        On Error Resume Next                        Next        wscript.echo sOutput

 Dim strFolder        Dim arrServers        Dim strProfile‘example of file path        strProfile = “C$WindowsSysWOW64MacromedFlashflash10v.ocx” arrComputers =     Array(“server1″,”server2”)        Set objFSO = CreateObject(“Scripting.FileSystemObject”)        sOutput=”Script Results for:” & strprofile & vbcrlf & vbcrlf                For EACH strComputer in arrComputerssOutput = sOutput & objFSO.FileExists (“\”& strComputer & strProfile) & vbtab & strComputer & vbcrlf              On Error Resume Next                        Next        wscript.echo sOutput

 Dim strFolder        Dim arrServers        Dim strProfile      strProfile = “C$WindowsSysWOW64MacromedFlashflash10v.ocx”       arrComputers =     Array(“server1″,”server2”)        Set objFSO = CreateObject(“Scripting.FileSystemObject”)        sOutput=”Script Results for:” & strprofile & vbcrlf & vbcrlf                For EACH strComputer in arrComputers sOutput = sOutput & objFSO.GetFileVersion (“\”& strComputer & strProfile) & vbtab & strComputer & vbcrlf        On Error Resume Next                        Next        wscript.echo sOutput

‘vbscript Set Append DNS Suffixes (in order)On Error Resume Next strComputer = “.” arrNewDNSSuffixSearchOrder = Array(“internal.domain.local.1”, “internal.domain.local.2”)Set objWMIService = GetObject(“winmgmts:” _ & “{impersonationLevel=impersonate}!\” & strComputer & “rootcimv2”) Set objNetworkSettings = _ objWMIService.Get(“Win32_NetworkAdapterConfiguration”)intSetSuffixes = _ objNetworkSettings.SetDNSSuffixSearchOrder(arrNewDNSSuffixSearchOrder)