远程显示服务列表代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】远程显示服务列表

作者:Dezai.CN / 发布于2011/6/13/ 1119

<div>Dim compname
Dim svclist
compname = inputbox<span style="color: rgb(102,204,102)">(</span><span style="color: rgb(255,0,0)">"geef een computernaam op"</span><span style="color: rgb(102,204,102)">)</span>
WScript.<span style="color: rgb(32,32,32)">Echo</span> <span style="color: rgb(255,0,0)">"Services op "</span> & compname
<span style="color: rgb(177,177,0)">For</span> Each obj In GetObject<span style="color: rgb(102,204,102)">(</span><span style="color: rgb(255,0,0)">"winmgmts://"</span> & compname<span style="color: rgb(102,204,102)">)</span>.<span style="color: rgb(32,32,32)">instancesof</span><span style="color: rgb(102,204,102)">(</span><span style="color: rgb(255,0,0)">"win32_service"</span><span style="color: rgb(102,204,102)">)</span>
svclist =svclist & obj.<span style="color: rgb(32,32,32)">name</span> & vbcrlf
Next
wscript.<span style="color: rgb(32,32,32)">echo</span> svclist
</div>

试试其它关键字

　服务列表　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)