鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 服务器相关 > 批处理 > >

常用vbs

来源:互联网 作者:佚名 时间:2016-03-03 12:13
几个vbs VBS 'WScript.Echo WScript.FullName'WScript.Echo WScript.Name'WScript.Echo WScript.Path " xx 2 "'WScript.Echo WScript.ScriptName'WScript.Echo WScript.Version'msgbox "this is test msgbox fun"'set wshShell=WScript.CreateObject("WScript
几个vbs VBS
'WScript.Echo WScript.FullName
'WScript.Echo WScript.Name
'WScript.Echo WScript.Path & "  xx  2 "
'WScript.Echo WScript.ScriptName
'WScript.Echo WScript.Version
'msgbox "this is test msgbox fun"
'set wshShell=WScript.CreateObject("WScript.shell")
'wshShell.Run "Calc"

'网络
Set netWork=WScript.CreateObject("WScript.network")
WScript.Echo "domain is " & netWork.userDomain
WScript.Echo "computer is " & netWork.computerName
WScript.Echo "user name is " & netWork.UserName


set objAgrs=WScript.Arguments
WScript.Echo WScript.FullName
For x=0 to objAgrs.Count -1
	Wscript.Echo objAgrs(x)
Next
WScript.Echo x


网友评论
<