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)
Problem: During the configuration of the Biztalk Accelerator for SWIFT configurationWhen configuring the MCRR featuresThe setup would complete but would be unable to add the domain ‘groups’ specified for Admins and Usersi.e. A4SWIFT Administrators Group; A4SWIFT Users Group. The setup would complete but with errors and from the logs it was obvious the system was […]
bcdedit.exe /set nx OptIn = “Turn on DEP for essential Windows programs and services only” bcdedit.exe /set ns OptOut = “Turn on DEP for all programs and services except those I select” bcdedit.exe /enum = Query Settings bcdedit.exe /set nx AlwaysOff = “Disable DEP entirely” To disable DEP just to internet Explorer 8 – see this article […]
C:WindowsSystem32cscript C:WindowsSystem32slmgr.vbs -ato
Problem: After the installation of R01 for XenApp 5.0 on Windows x64 2008 – Outlook and PDF links stopped working. Fix: Install the Citrix provided post R01 hotfix here – http://support.citrix.com/article/CTX129366 Additional: For some users this fix was not enough as they had already saved the blank associations in their profile we had to delete […]