Franck的专栏

Const ForReading = 1 Const ForWriting = 2 Set fso = CreateObject("Scripting.FileSystemObject") Set com = fso.OpenTextFile("COM6:9600,N,8,1", ForReading) Set objFSO = CreateObject("Scripting.Fi

'Displays current status for all printers on a computer.  strComputer = "." Set objWMIService = GetObject("winmgmts:" _     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")