Lille BAT-script til VBS

jeg bruger bla en pause.exe, men hvis man kan holde en pause på 1 sek i vbs på en anden måde ville dette være rart :-)

Hejsa connor
Her er scriptet:

' her stopper vi en service

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
  & "{Win32_Service.Name='NetDDE'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
    objService.StopService()
Next

' her teminerer vi en service

' VBScript source code
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'iexplore.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

' her venter vi

Wscript.Sleep 100


håber du kan bruge det:):)

Tak for det... men jeg syntes ikke rigtig at det virker.
Jeg har en service som hedder: poweroff, men den bliver ikke lukket.
Har prøvet med:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
  & "{Win32_Service.Name='poweroff'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
    objService.StopService()
Next

Men den bliver ikke lukket ned :-(

ahhh...jeg tror kune du behøver at terminerer servicen...så brug det sidte jeg skrev:

' VBScript source code
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'iexplore.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

' her venter vi

Wscript.Sleep 100


er det bedre?

hmmm, scriptet gør slet ikke noget... Servicen poweroff lukkes ikke ned, ej heller kommer der en fejl :(

Min bat-fil virker staig fint, men jeg ville jo gerne have vbs'en til at køre.
Jeg har erfaret at man er nød til først at stoppe en servive før man kan slette den og det er derfor jeg gør begge ting. Her er vbs-koden jeg har prøvet:

' her stopper vi en service

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
  & "{Win32_Service.Name='poweroff'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
    objService.StopService()
Next

' her teminerer vi en service

' VBScript source code
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'poweroff'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

' her venter vi

Wscript.Sleep 100

Service'en hedder poweroff (dens fil hedder poweroff.exe).
Når vbs koden er kørt kan servicen stadig ses i computeradministration under servises på ligefod med feks spooleren... Gør jeg noget galt?

Ok, ny bliver service'en stoppet med denne:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
  & "{Win32_Service.Name='poweroff'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
    objService.StopService()
Next
'Wscript.Sleep 2000
Set colServiceList = objWMIService.ExecQuery _
        ("Select * from Win32_Service where Name='poweroff'")
For each objService in colServiceList
    errReturn = objService.StopService()
Next

Men jeg mangler stadig at slette/afinstalere den, men hvordan?

så skal du bare bruge denne:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
    ("Select * from Win32_Service Where Name = 'poweroff'")
For Each objService in colListOfServices
    objService.StopService()
    objService.Delete()
Next


:):)

Takker det hjalp :-))

Hvad nu hvis jeg gerne vil instalere en service igen?
Jeg bruger pt denne i en bat-fil:
C:\poweroff\poweroff poweroff -warn -warntime 120 -msg "PC'en bliver slukket om to minutter\nHusk at gemme dit arbejde!\n\n\nDu kan annulere nedlukningen ved at trykke CANCEL" -force -scheduled -time 12:25 -days m,t,w,th,f,s,su -create_service

programmet poweroff med dens parametre instalere selv en service... jeg har prøvet med:
Set shell = WScript.CreateObject("wscript.shell")
shell.run "C:\poweroff\poweroff poweroff -warn -warntime 120 -msg "PC'en bliver slukket om to minutter\nHusk at gemme dit arbejde!\n\n\nDu kan annulere nedlukningen ved at trykke CANCEL" -force -scheduled -time 12:25 -days m,t,w,th,f,s,su -create_service"

Men der kommer en fejl:
Slut på sætning var ventet... gør jeg noget galt?

jamen så gør du sådan her:

Const OWN_PROCESS = 16
Const NOT_INTERACTIVE = False
Const NORMAL_ERROR_CONTROL = 2
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objService = objWMIService.Get("Win32_BaseService")
errReturn = objService.Create("DbService" ,"Personnel Database" , _
    "c:\windows\system32\db.exe", OWN_PROCESS, NORMAL_ERROR_CONTROL, "Manual", _
        NOT_INTERACTIVE, "NT AUTHORITY\LocalService", ""  )
Wscript.Echo errReturn

Men programmet poweroff.exe med parametrene opretter selv en service. Kan jeg ikke bare starte det?

Parametrene skal med idet de angiver hvad service'en/programmet skal gøre...

prøv dette:

Set shell = WScript.CreateObject("wscript.shell")
shell.run "C:\poweroff\poweroff poweroff -warn -warntime 120 -force -scheduled -time 12:25 -days m,t,w,th,f,s,su

-create_service"



text = ""
text = text & "PC'en bliver slukket om to minutter\nHusk at gemme dit arbejde!\n\n\nDu kan annulere nedlukningen ved at

trykke CANCEL" & vbCRLF 

msgbox text

kunne du bruge det?

fik du det til at virke??

Sorry kom væk fra det og glemte det så :-(

Nej jeg fik det ikke helt til at virke, men du hjalp mig godt på vej... Tal for hjælpen