strComputer = "."
strOS_FullName=GetOS
intProc=GetProcessor
Ustalony WshShell=CreateObject ("Wscript.Shell")
Jeżeli instr ((1), strOS_FullName, "XP", vbTextCompare) wtedy
strPrefix= " xp "
ElseIf instr ((1), strOS_FullName, "Vista", vbTextCompare) wtedy
strPrefix= " dukt "
ElseIf instr ((1), strOS_FullName, "Windows 7", vbTextCompare) wtedy
strPrefix= " win7 "
ElseIf instr ((1), strOS_FullName, "2003", vbTextCompare) wtedy
strPrefix= " win2003 "
Inny
strPrefix= ""
'msgbox strOS_FullName
Kończyć Jeżeli
Jeżeli strPrefix= "" wtedy
msgbox "Móc OS", vbExclamation, "Taksówka Selekcjoner"
wscript.quit
Kończyć Jeżeli
strCab=strPrefix & "-" & intProc & ".cab"
WshShell.run "C:\Windows\system32\printmig - r" & strCab
Funkcja GetOS
Ustalony objWMIService = GetObject ("winmgmts: \ \" & strComputer & "\ korzeń \ cimv2")
Ustalony colOSes = objWMIService.ExecQuery ("Wybiórka * od Win32_OperatingSystem")
Dla ColOSes objOS w colOSes
GetOS=objOS.Caption
Następnie
Końcówka Funkcja
Funkcja GetProcessor
Ustalony objWMIService = GetObject ("winmgmts: \ \" & strComputer & "\ korzeń \ cimv2")
Ustalony colItems = objWMIService.ExecQuery ("Wybiórka * od Win32_Processor")
Dla ColItems objItem w colItems
GetProcessor=objItem.AddressWidth
Następnie
Końcówka Funkcja
|