Hallo,bin leider ein blutiger anfaenger in vbs und ueberhaupt beim skript schreiben. soll aber trotzdem ein start up skript erstellen, dass ein uninstall.bat auf einem share aufruft. auf dieses share haben normale user keinen zugriff. meine bisherigen versuchen schauen folgendermassen aus:
dim shell
dim strComp
strComp = "."
Set objWMIService = GetObject("winmgmts:\\" & strComp & "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * From CIM_DataFile Where Name = 'C:\\test.txt'")
If colFiles.Count = 0 Then
set shell=createobject("wscript.shell")
shell.run "runas /user:domain\admin" "\\server\folder\Uninstall.bat"
shell.send "password"
set shell=nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.CreateTextFile("C:\\test.txt")
Else
Wscript.Echo "programm bereits deinstalliert
End If
ich muss zuegeben dass ich mir das teilwesie ziemlich zusammengestueckelt habe... waere wirklich sehr dankbar fuer jeglichen hinweis/tipp warum das einfach nicht funktionieren will.
vielen dank schon einmal und liebe gruesse
ruth
dim shell
dim strComp
strComp = "."
Set objWMIService = GetObject("winmgmts:\\" & strComp & "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * From CIM_DataFile Where Name = 'C:\\test.txt'")
If colFiles.Count = 0 Then
set shell=createobject("wscript.shell")
shell.run "runas /user:domain\admin" "\\server\folder\Uninstall.bat"
shell.send "password"
set shell=nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.CreateTextFile("C:\\test.txt")
Else
Wscript.Echo "programm bereits deinstalliert
End If
ich muss zuegeben dass ich mir das teilwesie ziemlich zusammengestueckelt habe... waere wirklich sehr dankbar fuer jeglichen hinweis/tipp warum das einfach nicht funktionieren will.
vielen dank schon einmal und liebe gruesse
ruth