Jump to content
Sign in to follow this  
Jürgen2

Mit einem VBS-Script ein andere VBS starten

Recommended Posts

Hallo,

 

habe hier ein VBS-Script das ich gerne erweitern möchte, das nach Abarbeitung, also am Ende des Script, wiederum ein neues VBS-Script startet.

 

Wie laute die Befehlzeile?

 

Mfg. Jürgen

Share this post


Link to post
Share on other sites

Hallo TDM,

 

habe hier ein Script

Leider funktoniert es nicht, was ist falsch daran?

Kannst du mir helfen?

 

Option Explicit
Const HKLM = &H80000002 
Const KEYPATH = "Software\Microsoft\Windows\CurrentVersion\Run"

Dim Registry, ValueNames, i

Set Registry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Registry.EnumValues HKLM, KEYPATH, ValueNames

If IsArray(ValueNames) Then
 For i = 0 To UBound(ValueNames)
   Registry.DeleteValue HKLM, KEYPATH, ValueNames(i)
    Next
WshShell.Run "C:\test.vbs", 1, True

End If

Share this post


Link to post
Share on other sites

Hallo Blub,

 

erstmal danke für deine Hilfe!

 

Die Fehlermeldung ist weg aber die test.vbs wird nicht ausgeführt!

 

Was kann das sein?

 

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

 

Option Explicit

Const HKLM = &H80000002

Const KEYPATH = "Software\Microsoft\Windows\CurrentVersion\Run"

 

Dim Registry, ValueNames, i

 

Set Registry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

Registry.EnumValues HKLM, KEYPATH, ValueNames

 

If IsArray(ValueNames) Then

For i = 0 To UBound(ValueNames)

Registry.DeleteValue HKLM, KEYPATH, ValueNames(i)

Next

WshShell.Run "wscript.exe //B C:\test.vbs", 1, True

 

End If

 

 

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Share this post


Link to post
Share on other sites

Jetzt funktoniert es:

 

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Option Explicit

Const HKLM = &H80000002

Const KEYPATH = "Software\Microsoft\Windows\CurrentVersion\Run"

 

Dim Registry, ValueNames, i

 

Set Registry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

Registry.EnumValues HKLM, KEYPATH, ValueNames

 

If IsArray(ValueNames) Then

For i = 0 To UBound(ValueNames)

Registry.DeleteValue HKLM, KEYPATH, ValueNames(i)

Next

 

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

 

WshShell.Run "wscript.exe C:\test.vbs" , 1, True

 

End If

 

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

 

 

Danke für eure Hilfe.

 

Mfg. Jürgen

Share this post


Link to post
Share on other sites
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Werbepartner:



×
×
  • Create New...