enemy100 Posted December 9, 2011 Report Share Posted December 9, 2011 Senhores,estou com um probleminha para rodar esse script, a ideia é a seguinte:esse script pega 3 serviços do windows e retorna dizendo se ele esta rodando ou nele está funcionando, mas eu queria q essa saida fosse em um novo .txt, ou mostrar na própria tela do DOS, como faz?'servicos.vbsSet objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\")'strServiceName = InputBox("Nome do Serviço...", "Nome Do Serviço")Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service where name = 'Dhcp' or name = 'ALG' or name = 'idsvc'")For Each objService in colRunningServices strServiceList = strServiceList & VbCr & objService.name & vbTab & objService.state & vbCrNextWScript.Echo strServiceListpodem me ajudar? Quote Link to comment Share on other sites More sharing options...
Question
enemy100
Senhores,
estou com um probleminha para rodar esse script, a ideia é a seguinte:
esse script pega 3 serviços do windows e retorna dizendo se ele esta rodando ou n
ele está funcionando, mas eu queria q essa saida fosse em um novo .txt, ou mostrar na própria tela do DOS, como faz?
'servicos.vbs
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\")
'strServiceName = InputBox("Nome do Serviço...", "Nome Do Serviço")
Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service where name = 'Dhcp' or name = 'ALG' or name = 'idsvc'")
For Each objService in colRunningServices
strServiceList = strServiceList & VbCr & objService.name & vbTab & objService.state & vbCr
Next
WScript.Echo strServiceList
podem me ajudar?
Link to comment
Share on other sites
0 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.