perfdata added
This commit is contained in:
Páll Guðjón Sigurðsson
parent
e03f590221
commit
e2d9f6e73c
|
|
@ -0,0 +1,604 @@
|
|||
' Copyright 2007 GroundWork Open Source Inc.
|
||||
'
|
||||
' This program is free software; you can redistribute it and/or
|
||||
' modify it under the terms of the GNU General Public License
|
||||
' as published by the Free Software Foundation; version 2
|
||||
' of the License.
|
||||
'
|
||||
' This program is distributed in the hope that it will be useful,
|
||||
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
' GNU General Public License for more details.
|
||||
'
|
||||
'
|
||||
' Author Dr. Dave Blunt at GroundWork Open Source Inc. (dblunt@groundworkopensource.com)
|
||||
|
||||
'*************************************************************************************************
|
||||
' Public Variable
|
||||
'*************************************************************************************************
|
||||
Const intOK = 0
|
||||
Const intUnknown = 3
|
||||
Const intError = 3
|
||||
|
||||
Dim argcountcommand
|
||||
Dim arg(20)
|
||||
Dim strComputer
|
||||
Dim strUser
|
||||
Dim strPass
|
||||
Dim strNameSpace
|
||||
Dim strDescription
|
||||
Dim strCommandName
|
||||
Dim strResultTemp
|
||||
Dim strResult
|
||||
|
||||
Dim ArgCount
|
||||
Dim strArgMain(10)
|
||||
Dim strArgSortDes(10)
|
||||
Dim strArgDetailDes(10)
|
||||
Dim strArgExample(10)
|
||||
|
||||
strInfo=""
|
||||
|
||||
'*************************************************************************************************
|
||||
' Functions and Subs
|
||||
'*************************************************************************************************
|
||||
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_Error.
|
||||
'Descripton: Display an error notice include : Error Number and Error Description.
|
||||
'Input: No.
|
||||
'Output: No.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_Error()
|
||||
|
||||
nbrError = err.number
|
||||
if (nbrError <> 0 ) then
|
||||
Select Case nbrError
|
||||
Case 462, -2147023174
|
||||
strExitMsg = "Timeout connecting to WMI on this host! Error Number: " & nbrError & " Description: " & err.description
|
||||
Case -2147024891
|
||||
strExitMsg = "Authentication failure to remote host! Error Number: " & nbrError & " Description: " & err.description
|
||||
Case -2147217392
|
||||
strExitMsg = "Error! Number: " & nbrError & " Description: Invalid Class"
|
||||
Case Else
|
||||
strExitMsg = "Error! Number: " & nbrError & " Description: " & err.description
|
||||
End Select
|
||||
wscript.echo strExitMsg
|
||||
wscript.quit(intUnknown)
|
||||
end if
|
||||
|
||||
End Function
|
||||
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_Help.
|
||||
'Descripton: Display help of command include : Description, Arguments, Examples
|
||||
'Input: No.
|
||||
'Output: No.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_Help()
|
||||
|
||||
Dim strHelp
|
||||
|
||||
|
||||
Dim i
|
||||
Dim strtemp1
|
||||
Dim strtemp2
|
||||
Dim strtemp3
|
||||
|
||||
strHelp=""
|
||||
|
||||
strtemp1=""
|
||||
strtemp2=""
|
||||
strtemp3=""
|
||||
|
||||
for i=1 to ArgCount
|
||||
strtemp1=strtemp1 & " " & strArgMain(i) & " " & strArgSortDes(i)
|
||||
strtemp2=strtemp2 & strArgMain(i) & " " & strArgSortDes(i) & " " & strArgDetailDes(i) & "." & vbCrlF
|
||||
strtemp3=strtemp3 & " " & strArgMain(i) & " " & strArgExample(i)
|
||||
next
|
||||
|
||||
'/////////////////////
|
||||
|
||||
strHelp=strHelp & strDescription & " If your Local Machine has the same Administrator account and password as the Remote Machine then you don't have to use the two (three) last parameters."&vbCrlF&vbCrlF
|
||||
strHelp=strHelp & "cscript " & strCommandName & strtemp1 & " [-user username -pass password -domain domain]"
|
||||
strHelp=strHelp & vbCrlF
|
||||
strHelp=strHelp & strtemp2
|
||||
strHelp=strHelp & "-user username Account Administrator on Remote Machine." & vbCrlF
|
||||
strHelp=strHelp & "-pass password Password Account Administrator on Remote Machine." & vbCrlF
|
||||
strHelp=strHelp & "-domain domain Domain Name on Remote Machine." & vbCrlF
|
||||
strHelp=strHelp & vbCrlF
|
||||
strHelp=strHelp & "Example: cscript " & strCommandName & strtemp3 & " [-user Ser1\Administrator -pass password -domain workgroup]." & vbCrlF
|
||||
strHelp=strHelp & vbCrlF
|
||||
strHelp=strHelp & "For Help Command: cscript " & strCommandName & " -h (or --help)." & vbCrlF
|
||||
strHelp=strHelp & vbCrlF
|
||||
strHelp=strHelp & "Note: information can be one or multiple of network_interfaces, logical_disks, installed_services, running_processes, all_processors or *." & vbCrlF
|
||||
strHelp=strHelp & "And if get multiple infomation, the information must be enclosed in multiple quotes and separate by commas." & vbCrlF
|
||||
strHelp=strHelp & "Example: cscript get_computer_info.vbs -h Ser1 -i ""network_interfaces,logical_disks,install_services"" [-user SER1\Administrator -pass password] " & vbCrlF
|
||||
Wscript.echo strHelp
|
||||
|
||||
End Function
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_GetAllArg.
|
||||
'Descripton: Get all of arguments from command.
|
||||
'Input: No.
|
||||
'Output: No.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_GetAllArg()
|
||||
|
||||
On Error Resume Next
|
||||
|
||||
Dim i
|
||||
|
||||
argcountcommand=WScript.Arguments.Count
|
||||
|
||||
for i=0 to argcountcommand-1
|
||||
arg(i)=WScript.Arguments(i)
|
||||
next
|
||||
|
||||
End Function
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_GetOneArg.
|
||||
'Descripton: Get an argument from command.
|
||||
'Input: Yes.
|
||||
' strName: Name of argument
|
||||
'Output: Value.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_GetOneArg(strName)
|
||||
|
||||
On Error Resume Next
|
||||
|
||||
Dim i
|
||||
for i=0 to argcountcommand-1
|
||||
if (Ucase(arg(i))=Ucase(strName)) then
|
||||
f_GetOneArg=arg(i+1)
|
||||
Exit Function
|
||||
end if
|
||||
next
|
||||
|
||||
End Function
|
||||
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_TestLocalCommand.
|
||||
'Descripton: Test structure of command run at local host.
|
||||
'Input: No.
|
||||
'Output: Yes.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_TestLocalCommand()
|
||||
|
||||
On Error Resume Next
|
||||
|
||||
Dim i,j
|
||||
Dim temp
|
||||
Dim count
|
||||
Dim check(10)
|
||||
|
||||
count=0
|
||||
|
||||
for j=1 to ArgCount
|
||||
check(j)=0
|
||||
next
|
||||
|
||||
if (argcountcommand<>ArgCount*2) then
|
||||
f_TestLocalCommand=0
|
||||
else
|
||||
for i=0 to argcountcommand-1
|
||||
if (i mod 2=0) then
|
||||
temp=UCase(arg(i))
|
||||
for j=1 to ArgCount
|
||||
if (temp=UCase(strArgMain)) and (check(j)=0) then
|
||||
check(j)=1
|
||||
count=count+1
|
||||
j=ArgCount
|
||||
end if
|
||||
next
|
||||
end if
|
||||
next
|
||||
if count=ArgCount then
|
||||
f_TestLocalCommand=1
|
||||
else
|
||||
f_TestLocalCommand=0
|
||||
end if
|
||||
end if
|
||||
|
||||
End Function
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_TestRemoteCommand.
|
||||
'Descripton: Test structure of command run at remote host.
|
||||
'Input: No.
|
||||
'Output: Yes.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_TestRemoteCommand()
|
||||
|
||||
On Error Resume Next
|
||||
|
||||
Dim i,j
|
||||
Dim temp
|
||||
Dim count
|
||||
Dim check(10)
|
||||
Dim extra(5)
|
||||
|
||||
count=0
|
||||
|
||||
for j=1 to ArgCount
|
||||
check(j)=0
|
||||
next
|
||||
|
||||
for j=1 to 3
|
||||
extra(j)=0
|
||||
next
|
||||
|
||||
|
||||
if (argcountcommand=(ArgCount+2)*2) or (argcountcommand=(ArgCount+3)*2) then
|
||||
for i=0 to argcountcommand-1
|
||||
if (i mod 2=0) then
|
||||
temp=UCase(arg(i))
|
||||
if (temp="-USER" and extra(1)=0) then
|
||||
extra(1)=1
|
||||
count=count+1
|
||||
else
|
||||
if (temp="-PASS" and extra(2)=0) then
|
||||
extra(2)=1
|
||||
count=count+1
|
||||
else
|
||||
if (temp="-DOMAIN" and extra(3)=0) then
|
||||
extra(3)=1
|
||||
count=count+1
|
||||
else
|
||||
for j=1 to ArgCount
|
||||
if (temp=UCase(strArgMain)) and (check(j)=0) then
|
||||
check(j)=1
|
||||
count=count+1
|
||||
j=ArgCount
|
||||
end if
|
||||
next
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
next
|
||||
if (count*2=argcountcommand) then
|
||||
f_TestRemoteCommand=1
|
||||
else
|
||||
f_TestRemoteCommand=0
|
||||
end if
|
||||
|
||||
else
|
||||
f_TestremoteCommand=0
|
||||
end if
|
||||
|
||||
End Function
|
||||
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_LocalInfo.
|
||||
'Descripton: Get infomation at Local Host.
|
||||
'Input: info.
|
||||
'Output: No.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_LocalInfo(info)
|
||||
|
||||
On Error Resume Next
|
||||
|
||||
Dim objWMIService, colWMI,objWMI
|
||||
strResultTemp = ""
|
||||
strOut = ""
|
||||
strPerfdata = ""
|
||||
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
|
||||
f_Error()
|
||||
'Depend on strInfo parameters to get the result value
|
||||
if(info = "*") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
|
||||
for Each objWMI In colWMI
|
||||
strOut1 = strOut1 & objWMI.Name & ", "
|
||||
next
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
|
||||
for Each objWMI In colWMI
|
||||
strOut2 = strOut2 & objWMI.Name & ", "
|
||||
next
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
|
||||
for Each objWMI In colWMI
|
||||
strOut3 = strOut3 & objWMI.Name & ", "
|
||||
next
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
|
||||
for Each objWMI In colWMI
|
||||
strOut4 = strOut4 & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; Network Interfaces: " & strOut & "; Logical Disks: " & strOut1 &_
|
||||
"; Installed services: " & strOut2 & "; Running Processes: " & strOut3 &_
|
||||
"; All Processors: " & strOut4
|
||||
Exit Function
|
||||
end if
|
||||
|
||||
if(info = "network_interfaces") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
strPerfdata = strPerfdata & "'net_sent_" & objWMI.Name & "'=" & objWMI.BytesSentPerSec & " " & "'net_recv_" & objWMI.Name & "'=" & objWMI.BytesReceivedPerSec & " "
|
||||
next
|
||||
strResultTemp = "; Network Interfaces: " & strOut & " | " & strPerfdata
|
||||
Exit Function
|
||||
else
|
||||
if(info = "logical_disks") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
strPerfdata = strPerfdata & "'disk_read_" & objWMI.Name & "'=" & objWMI.DiskReadBytesPerSec & " " & "'disk_write_" & objWMI.Name & "'=" & objWMI.DiskWriteBytesPerSec & " "
|
||||
next
|
||||
strResultTemp = "; Logical Disks: " & strOut & " | " & strPerfdata
|
||||
Exit Function
|
||||
else
|
||||
if(info = "installed_services") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; Installed Services: " & strOut
|
||||
Exit Function
|
||||
else
|
||||
if(info = "running_processes") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; Running Processes: " & strOut
|
||||
Exit Function
|
||||
else
|
||||
if(info = "all_processors") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; All Processors: " & strOut
|
||||
Exit Function
|
||||
else
|
||||
f_Error()
|
||||
Wscript.echo "Error! Arguments are wrong."
|
||||
Wscript.Quit(3)
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
End Function
|
||||
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_RemoteInfo.
|
||||
'Descripton: Get infomation at Remote Host.
|
||||
'Input: info.
|
||||
'Output: No.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_RemoteInfo(info)
|
||||
|
||||
On Error Resume Next
|
||||
|
||||
Dim objWMIService, colWMI,objWMI,objSWbemLocator
|
||||
Dim strDomain
|
||||
strResultTemp = ""
|
||||
strOut = ""
|
||||
|
||||
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
|
||||
|
||||
if ((ArgCount+2)*2=ArgCountCommand) then
|
||||
Set objWMIService = objSWbemLocator.ConnectServer _
|
||||
(strComputer, strNameSpace , strUser, strPass )
|
||||
f_Error()
|
||||
else
|
||||
strDomain=f_GetOneArg("-domain")
|
||||
Set objWMIService = objSWbemLocator.ConnectServer _
|
||||
(strComputer, strNameSpace , strUser, strPass,"MS_409","ntlmdomain:" + strDomain )
|
||||
f_Error()
|
||||
end if
|
||||
|
||||
objWMIService.Security_.ImpersonationLevel = 3
|
||||
f_Error()
|
||||
'Depend on strInfo parameters to get the result value
|
||||
if(info = "*") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
|
||||
for Each objWMI In colWMI
|
||||
strOut1 = strOut1 & objWMI.Name & ", "
|
||||
next
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
|
||||
for Each objWMI In colWMI
|
||||
strOut2 = strOut2 & objWMI.Name & ", "
|
||||
next
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
|
||||
for Each objWMI In colWMI
|
||||
strOut3 = strOut3 & objWMI.Name & ", "
|
||||
next
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
|
||||
for Each objWMI In colWMI
|
||||
strOut4 = strOut4 & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; Network Interfaces: " & strOut & "; Logical Disks: " & strOut1 &_
|
||||
"; Installed services: " & strOut2 & "; Running Processes: " & strOut3 &_
|
||||
"; All Processors: " & strOut4
|
||||
Exit Function
|
||||
end if
|
||||
|
||||
if(info = "network_interfaces") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; Network Interfaces: " & strOut
|
||||
Exit Function
|
||||
else
|
||||
if(info = "logical_disks") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; Logical Disks: " & strOut
|
||||
Exit Function
|
||||
else
|
||||
if(info = "installed_services") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_BaseService")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; Installed Services: " & strOut
|
||||
Exit Function
|
||||
else
|
||||
if(info = "running_processes") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_Process")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; Running Processes: " & strOut
|
||||
Exit Function
|
||||
else
|
||||
if(info = "all_processors") then
|
||||
Set colWMI = objWMIService.ExecQuery("Select * from Win32_Processor")
|
||||
for Each objWMI In colWMI
|
||||
strOut = strOut & objWMI.Name & ", "
|
||||
next
|
||||
strResultTemp = "; All Processors: " & strOut
|
||||
Exit Function
|
||||
else
|
||||
f_Error()
|
||||
Wscript.echo "Error! Arguments are wrong."
|
||||
Wscript.Quit(3)
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
End Function
|
||||
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_LocalPerfValue.
|
||||
'Descripton: Get perform value at Local Host.
|
||||
'Input: No.
|
||||
'Output: No.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_LocalPerfValue()
|
||||
|
||||
On Error Resume Next
|
||||
strResult = ""
|
||||
info = strInfo
|
||||
'sProcess = arg(3)
|
||||
first=1
|
||||
tam1=10
|
||||
if (len(strInfo)>0) then
|
||||
do while (tam1>0)
|
||||
tam1=InStr(first,strInfo,",")
|
||||
if (tam1>0) then
|
||||
tam2=Mid(strInfo,first,tam1-first)
|
||||
first=tam1+1
|
||||
info = tam2
|
||||
f_LocalInfo(Trim(info))
|
||||
strResult = strResult & strResultTemp
|
||||
end if
|
||||
Loop
|
||||
tam2=Mid(strInfo,first,len(strInfo))
|
||||
info = tam2
|
||||
f_LocalInfo(Trim(info))
|
||||
strResult = strResult & strResultTemp
|
||||
end if
|
||||
strResult = "Host name: " & strComputer & strResult
|
||||
Wscript.Echo strResult
|
||||
Wscript.Quit(intOK)
|
||||
End Function
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
'Function Name: f_RemotePerfValue.
|
||||
'Descripton: Get perform values at Remote Host.
|
||||
'Input: No.
|
||||
'Output: Values.
|
||||
'-------------------------------------------------------------------------------------------------
|
||||
Function f_RemotePerfValue()
|
||||
|
||||
On Error Resume Next
|
||||
|
||||
strResult = ""
|
||||
info = strInfo
|
||||
first=1
|
||||
tam1=10
|
||||
if (len(strInfo)>0) then
|
||||
do while (tam1>0)
|
||||
tam1=InStr(first,strInfo,",")
|
||||
if (tam1>0) then
|
||||
tam2=Mid(strInfo,first,tam1-first)
|
||||
first=tam1+1
|
||||
info = tam2
|
||||
f_RemoteInfo(Trim(info))
|
||||
strResult = strResult & strResultTemp
|
||||
end if
|
||||
Loop
|
||||
tam2=Mid(strInfo,first,len(strInfo))
|
||||
info = tam2
|
||||
f_RemoteInfo(Trim(info))
|
||||
strResult = strResult & strResultTemp
|
||||
end if
|
||||
strResult = "Host name: " & strComputer & strResult
|
||||
Wscript.Echo strResult
|
||||
Wscript.Quit(intOK)
|
||||
|
||||
End Function
|
||||
'*************************************************************************************************
|
||||
' Main Function
|
||||
'*************************************************************************************************
|
||||
|
||||
'/////////////////////
|
||||
|
||||
strCommandName="get_computer_info.vbs"
|
||||
strDescription="Enumerate the needed windows host information."
|
||||
|
||||
'/////////////////////
|
||||
|
||||
ArgCount=2
|
||||
|
||||
strArgMain(1)= "-h"
|
||||
strArgSortDes(1)= "hostname"
|
||||
strArgDetailDes(1)= " Host name"
|
||||
strArgExample(1)= "Ser1"
|
||||
|
||||
strArgMain(2)= "-i"
|
||||
strArgSortDes(2)= "information"
|
||||
strArgDetailDes(2)= " The needed information"
|
||||
strArgExample(2)= "installed_services"
|
||||
|
||||
strNameSpace = "root\cimv2"
|
||||
|
||||
f_GetAllArg()
|
||||
f_Error()
|
||||
|
||||
if ((UCase(arg(0))="-H") Or (UCase(arg(0))="--HELP")) and (argcountcommand=1) then
|
||||
f_help()
|
||||
else
|
||||
if (f_TestLocalCommand()) then
|
||||
strComputer=f_GetOneArg("-h")
|
||||
if(strComputer = "localhost") then
|
||||
strComputer = "."
|
||||
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
|
||||
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
|
||||
For Each objItem in colItems
|
||||
strComputer = objItem.DNSHostName
|
||||
Next
|
||||
end if
|
||||
strInfo=f_GetOneArg("-i")
|
||||
f_LocalPerfValue()
|
||||
f_Error()
|
||||
else
|
||||
if (f_TestRemoteCommand()) then
|
||||
strComputer=f_GetOneArg("-h")
|
||||
strInfo=f_GetOneArg("-i")
|
||||
strUser=f_GetOneArg("-user")
|
||||
strPass=f_GetOneArg("-pass")
|
||||
f_RemotePerfValue()
|
||||
f_Error()
|
||||
else
|
||||
f_Error()
|
||||
Wscript.echo "Error! Arguments are wrong."
|
||||
Wscript.Quit(intError)
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
Loading…
Reference in New Issue