| 发表于：2007-02-20 10:59:001楼 得分:100 |
试试看
option explicit
dim objswbemlocator as new swbemlocator
dim objswbemservices as swbemservices
dim objswbemobjectset as swbemobjectset
dim objswbemobject as swbemobject, objstartup as swbemobject, objconfig as swbemobject
dim strcomputer as string, strusername as string, strpassword as string, strcommand as string
private const sw_normal = 1
private sub form_load（)
me.caption = "启动进程 "
strcomputer = ". " '.为本机，可以指定远程计算机
strusername = " " '指定计算机的管理员帐号
strpassword = " " '指定计算机的管理员口令
strcommand = "cmd /k dir " '命令行方式或一个可以带路径的可执行程序例如 "c:\winnt\system32\notepad.exe "
set objswbemservices = objswbemlocator.connectserver（strcomputer, "root\cimv2 ", strusername, strpassword) '连接到本机的wmi，返回一个对 swbemservices 对象的引用
end sub
private sub command1_click（)
dim intreturn as long, intprocessid as long
'构造进程的作为窗口显示
set objstartup = objswbemservices.get（ "win32_processstartup ")
set objconfig = objstartup.spawninstance_
objconfig.showwindow = sw_normal
' 建立进程
set objswbemobject = objswbemservices.get（ "win32_process ")
intreturn = objswbemobject.create（strcommand, null, objconfig, intprocessid)
if intreturn <> 0 then
msgbox strcommand & "进程不能被创建！ " & _
vbcrlf & "command line: " & strcommand & _
vbcrlf & "return value: " & intreturn
else
msgbox strcommand & "进程已创建： " & _
vbcrlf & "command line: " & strcommand & _
vbcrlf & "process id: " & intprocessid
end if
end sub
| | |
|
