strComputer = „.“
strOS_FullName=GetOS
intProc=GetProcessor
WshShell=CreateObject („Wscript.Shell“) einstellen
Wenn instr (1, strOS_FullName, „XP“, vbTextCompare) dann
strPrefix= " xp "
ElseIf instr (1, strOS_FullName, „Vista“, vbTextCompare) dann
strPrefix= " Vista "
ElseIf instr (1, strOS_FullName, „Windows 7“, vbTextCompare) dann
strPrefix= " win7 "
ElseIf instr (1, strOS_FullName, „2003“, vbTextCompare) dann
strPrefix= " win2003 "
Sonst
strPrefix= ""
'msgbox strOS_FullName
Beenden wenn
Wenn strPrefix= "" dann
msgbox „konnte OS nicht feststellen“, vbExclamation, „Fahrerhaus-Vorwahl“
wscript.quit
Beenden wenn
strCab=strPrefix u. „-“ u. intProc u. „.cab“
WshShell.run „C:\Windows\system32\printmig - r“ u. strCab
Funktion GetOS
objWMIService = GetObject einstellen („winmgmts: \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
colOSes = objWMIService.ExecQuery einstellen („* von Win32_OperatingSystem vorwählen“)
Für jedes objOS in den colOSes
GetOS=objOS.Caption
Zunächst
Enden-Funktion
Funktion GetProcessor
objWMIService = GetObject einstellen („winmgmts: \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
colItems = objWMIService.ExecQuery einstellen („* von Win32_Processor vorwählen“)
Für jedes objItem in den colItems
GetProcessor=objItem.AddressWidth
Zunächst
Enden-Funktion
|