1,488
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zhangying7725 2005-09-22
- 打赏
- 举报
不好意思问错了， 是第二种方式
我已经知道了解决方法，用strResult = objExec.StdOut.ReadLine
马上给分
我已经知道了解决方法，用strResult = objExec.StdOut.ReadLine
马上给分
zhangying7725 2005-09-22
- 打赏
- 举报
方法一中取得的名字怎么还带一个回车？要如何去掉？
conrad_wan 2005-09-22
- 打赏
- 举报
淆习 ～～～
道素 2005-09-22
- 打赏
- 举报
1.用本地环境变量
set shell = WScript.CreateObject( "WScript.Shell" )
computername = shell.ExpandEnvironmentStrings("%COMPUTERNAME%")
wscript.echo computername
2。用Hostname
SET objShell=CreateObject("Wscript.Shell")
DIM objExec, strResult
SET objExec = objShell.Exec("hostname")
strResult = objExec.StdOut.ReadAll
WScript.Echo strResult
3.用WMI
Set wmiColl = GetObject("WinMgmts:root/cimv2")_
.ExecQuery("Select * FROM Win32_ComputerSystem")
For Each wmiObj in wmiColl
WScript.Echo wmiObj.Name
Next
set shell = WScript.CreateObject( "WScript.Shell" )
computername = shell.ExpandEnvironmentStrings("%COMPUTERNAME%")
wscript.echo computername
2。用Hostname
SET objShell=CreateObject("Wscript.Shell")
DIM objExec, strResult
SET objExec = objShell.Exec("hostname")
strResult = objExec.StdOut.ReadAll
WScript.Echo strResult
3.用WMI
Set wmiColl = GetObject("WinMgmts:root/cimv2")_
.ExecQuery("Select * FROM Win32_ComputerSystem")
For Each wmiObj in wmiColl
WScript.Echo wmiObj.Name
Next
