摘要： '获得当前系统服务Dim oArgs, strServerName, oServiceSet, oWshNetworkSet oArgs = WScript.ArgumentsIf oArgs.Count > 0 Then strServerName = trim(oArgs(0))Else strServerName = "LocalHost"End IfSet oServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strServerNam 阅读全文