REM Hide Altiris icons from system tray‘vbscriptConst HKEY_LOCAL_MACHINE = &H80000002strComputer = “.”Set objReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & _ strComputer & “rootdefault:StdRegProv”)objReg.SetDwordValue HKEY_LOCAL_MACHINE,”SOFTWAREAltirisClient Service”,”ShowTrayIcon”,0
‘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 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)