1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
|
" codeBody "
strComputer = „.“
strOS_FullName=GetOS
intProc=GetProcessor
Vastgestelde WshShell=CreateObject („Wscript.Shell“)
Als instr (1, strOS_FullName, „XP“, vbTextCompare) toen
strPrefix= " xp "
ElseIf instr (1, strOS_FullName, „Uitzicht“, vbTextCompare) toen
strPrefix= " uitzicht "
ElseIf instr (1, strOS_FullName, „Vensters 7“, vbTextCompare) toen
strPrefix= " win7 "
ElseIf instr (1, strOS_FullName, „2003“, vbTextCompare) toen
strPrefix= " win2003 "
Anders
strPrefix= ""
'msgbox strOS_FullName
Eind als
Als strPrefix= "" toen
msgbox „kon geen OS“ bepalen, vbExclamation, de „Selecteur van de Cabine“
wscript.quit
Beëindig als
strCab=strPrefix & „-“ & intProc & „.cab“
WshShell.run „C:\Windows\system32\printmig - r“ & strCab
Functie GetOS
Vastgestelde objWMIService = GetObject („winmgmts: \ \“ & strComputer & „\ wortel \ cimv2“)
Reeks colOSes = objWMIService.ExecQuery („selecteer * uit Win32_OperatingSystem“)
Voor Elke objOS in colOSes
GetOS=objOS.Caption
Daarna
De Functie van het eind
Functie GetProcessor
Vastgestelde objWMIService = GetObject („winmgmts: \ \“ & strComputer & „\ wortel \ cimv2“)
Reeks colItems = objWMIService.ExecQuery („selecteer * uit Win32_Processor“)
Voor Elke objItem in colItems
GetProcessor=objItem.AddressWidth
Daarna
De Functie van het eind
|