vbs怎么实现将文件上传到服务器,自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码...

复制代码 代码如下:

' FileName: SoftwareMeteringCLS.vbs

'

If (WScript.ScriptName = "SoftwareMeteringCLS.vbs") Then Call demo_SoftwareMeteringCLS()

' ====================================================================

Function getSoftwareList(sHost)

' Callable by *.wsf; will return list (safe array) of installed

' software on the sHost system (sHost is ComputerName or IP address).

'

' The assumption is that sHost is available and has WMI installed.

Set oSoftMeter = new SoftwareMeteringCLS

sProgsAry = oSoftMeter.getList(sHost)

Set oSpftMeter = Nothing

getSoftwareList = sProgsAry

End Function

' ====================== CLASS =======================================

Class SoftwareMeteringCLS

' Author: Branimir Petrovic

' Date: 6 Sept 2002

' Version: 1.0.3

'

' Revision History:

' 30 March 2002 V 1.0.0

'

' 08 April 2002 V 1.0.1

' Added error handling - if the target system is not present,

' or does not have WMI, getList(sHost) will return empty list.

'

' Added global function getSoftwareList(sHost) to be used

' from *.wsf scripts when caller script is JScript (since

' JScript can not instantiate VBS classes directly).

'

' 21 April 2002 V 1.0.2

' Replacing "[" with "(" and "]" with ")" in "Displ