5,655
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
gzqjava 2003-09-12
- 打赏
- 举报
当服务器死掉时，我该如何远程启动服务器
gzqjava 2003-09-12
- 打赏
- 举报
是win2000 server
angelior 2003-09-12
- 打赏
- 举报
可以嗎？
孟子E章 2003-09-12
- 打赏
- 举报
strComputer = "."
strMyService = "服务名字比如：IISAdmin 等"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name='" & strMyService & "'")
For each objService in colServiceList
errReturn = objService.StartService()
Next
a= Now()
While (DateDiff("s",a,Now()) < 5)
Wend
Set colServiceList = objWMIService.ExecQuery("Associators of {Win32_Service.Name='" & strMyService & "'} Where AssocClass=Win32_DependentService " & "Role=Dependent" )
For each objService in colServiceList
objService.StartService()
Next
strMyService = "服务名字比如：IISAdmin 等"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name='" & strMyService & "'")
For each objService in colServiceList
errReturn = objService.StartService()
Next
a= Now()
While (DateDiff("s",a,Now()) < 5)
Wend
Set colServiceList = objWMIService.ExecQuery("Associators of {Win32_Service.Name='" & strMyService & "'} Where AssocClass=Win32_DependentService " & "Role=Dependent" )
For each objService in colServiceList
objService.StartService()
Next
windancer 2003-09-12
- 打赏
- 举报
你的"服务器"指什么
gzqjava 2003-09-12
- 打赏
- 举报
请各位高手帮帮忙
xdzhang 2003-09-12
- 打赏
- 举报
软件吧！
或者通过电话线呼叫机房
或者通过电话线呼叫机房
