[ZT]实用的域登录脚本实例

Batcher

原文地址：http://hi.baidu.com/longerwg/blo ... 5b301ab31bbac9.html

1. Dim WshShell, fso
   
2. Const ForReading = 1, ForWriting = 2
   
3. Set WshShell = WScript.CreateObject("WScript.Shell")
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. On Error Resume Next
   
6. 
   
7. '清理系统垃圾文件
   
8. WshShell.Run "cmd /q/c for /d %%i in (%SystemRoot%\$Nt*) do rd /s/q ""%%i""",0
   
9. WshShell.Run "cmd /q/c for /d %%i in (%SystemRoot%\$hf_mig$\*) do rd /s/q ""%%i""",0
   
10. WshShell.Run "cmd /q/c for %%i in (%SystemRoot%\*.log) do del/f/q ""%%i""",0
    
11. WshShell.Run "cmd /q/c for %%i in (%SystemRoot%\*.tmp) do del/f/q ""%%i""",0
    
12. WshShell.Run "cmd /q/c for /d %%i in (%TEMP%\*) do rd /s/q ""%%i""",0
    
13. WshShell.Run "cmd /q/c for %%i in (%TEMP%\*) do del/f/q ""%%i""",0
    
14. 
    
15. '连接共享的网络打印机
    
16. Set WshNetwork = WScript.CreateObject("WScript.Network")
    
17. a = WshNetwork.UserName '获取登录用户名称
    
18. b = WshNetwork.ComputerName '获取计算机名称
    
19. WshNetwork.AddWindowsPrinterConnection "\\打印服务器\共享打印机名"
    
20. 
    
21. '获取IP地址
    
22. strComputer = "."
    
23. Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
    
24. Set IPConfigSet = objWMIService.ExecQuery _
    
25.     ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    
26. For Each IPConfig in IPConfigSet
    
27.     If Not IsNull(IPConfig.IPAddress) Then
    
28.         For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
    
29.             j = IPConfig.Index(i)
    
30.             k = IPConfig.IPAddress(i)
    
31.         If Len(k) > 0 Then Exit For
    
32.     Next
    
33.     End If
    
34. Next
    
35. 
    
36. '获取网卡MAC地址
    
37. Set colNetworkAdapters = objWMIService.InstancesOf("Win32_NetworkAdapter")
    
38. For Each objNetworkAdapter In colNetworkAdapters
    
39. If j = objNetworkAdapter.Index Then c = Replace(objNetworkAdapter.MACAddress,":","-")
    
40. Next
    
41. 
    
42. '获取CPU频率
    
43. Set colProcessors = objWMIService.InstancesOf("Win32_Processor")
    
44. For Each objProcessor In colProcessors
    
45. t1 = objProcessor.Name
    
46. t1 = t1 & " " & objProcessor.CurrentClockSpeed & " MHz"
    
47. If Len(Trim(t1)) > 0 Then Exit For
    
48. Next
    
49. 
    
50. '获取内存容量
    
51. Set colLogicalMemoryConfigurations = objWMIService.InstancesOf("Win32_LogicalMemoryConfiguration")
    
52. For Each objLogicalMemoryConfiguration In colLogicalMemoryConfigurations
    
53.     t2 = CInt(objLogicalMemoryConfiguration.TotalPhysicalMemory / 1024) & " MB"
    
54. Next
    
55. 
    
56. '获取获取第一硬盘型号
    
57. Set colDiskDrives = objWMIService.ExecQuery _
    
58.     ("Select * from Win32_DiskDrive where Index=0")
    
59. For each objDiskDrive in colDiskDrives
    
60. t3 = objDiskDrive.Model
    
61. Next
    
62. 
    
63. '获取获取第二硬盘型号
    
64. Set colDiskDrives = objWMIService.ExecQuery _
    
65.     ("Select * from Win32_DiskDrive where Index=1")
    
66. For each objDiskDrive in colDiskDrives
    
67. t4 = objDiskDrive.Model
    
68. Next
    
69. 
    
70. '获取获取第三硬盘型号
    
71. Set colDiskDrives = objWMIService.ExecQuery _
    
72.     ("Select * from Win32_DiskDrive where Index=2")
    
73. For each objDiskDrive in colDiskDrives
    
74. t5 = objDiskDrive.Model
    
75. Next
    
76. 
    
77. '获取获取第四硬盘型号
    
78. Set colDiskDrives = objWMIService.ExecQuery _
    
79.     ("Select * from Win32_DiskDrive where Index=3")
    
80. For each objDiskDrive in colDiskDrives
    
81. t6 = objDiskDrive.Model
    
82. Next
    
83. 
    
84. '获取获取第一光驱型号
    
85. Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive where SCSITargetId=0")
    
86. For Each objItem in colItems
    
87. t7 = objItem.Name
    
88. Next
    
89. 
    
90. '获取获取其它光驱型号
    
91. Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive where SCSITargetId<>0")
    
92. For Each objItem in colItems
    
93. t8 = objItem.Name
    
94. Next
    
95. 
    
96. '获取获取显卡型号
    
97. Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayControllerConfiguration")
    
98. For Each objItem in colItems
    
99. t9 = objItem.Name
    
100. Next
     
101. 
     
102. '生成记录文件
     
103. MyFile = "\\服务器名\配置文件存放地址" & Mid(k,13) & "-" & b & ".csv"
     
104. all = a & "," & b & "," & k & "," & c & "," & t1 & "," & t2 & "," & t3 & "," & t4 & "," & t5 & "," & t6 & "," & t7 & "," & t8 & "," & t9
     
105. Set f = fso.OpenTextFile(MyFile, ForWriting, True) '打开文件
     
106. f.WriteLine(all)
     
107. f.Close

复制代码