Ich will über den exec, exec_shell, system oder irgend solch ein Befehl eine vbs Datei ausführen.
Diese greift per wmi auf einen RemotePC zu, und holt einige Infos raus. Sie nimmt sich den
zu durchsuchenden PC aus der Datei hostname.txt. Die Infos speichert sie in result.txt.
Das ist im Moment so und soll auch so bleiben.
Wenn ich das vbs file manuell ausführe funktioniert es tip top, wenn ich es über php aufrufe z. B.
dann wills nicht. Mit anderen einfachen vbs files funktionierts.
Hier das Beispiel des vbs Files:
Merci für Eure Hilfe
Diese greift per wmi auf einen RemotePC zu, und holt einige Infos raus. Sie nimmt sich den
zu durchsuchenden PC aus der Datei hostname.txt. Die Infos speichert sie in result.txt.
Das ist im Moment so und soll auch so bleiben.
Wenn ich das vbs file manuell ausführe funktioniert es tip top, wenn ich es über php aufrufe z. B.
Code:
exec("cscript ScanCom.vbs");Hier das Beispiel des vbs Files:
Code:
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("result.txt", True)
' ### Konstanten
Const EINGABEDATEI = ".\hostname.txt"
' ### Globale Variablen
Dim FSO ' Instanz von Scripting.FileSystemObject
Dim objTX ' Textdatei-Objekt für den zu durchsuchenden Computer
' ### Global benötigtes Objekt
Set FSO = CreateObject("Scripting.FileSystemObject")
' ### Auslesen der Computerliste
Set objTX = FSO.OpenTextFile(EINGABEDATEI)
strComputer = objTX.ReadLine
' ### Herstellerinfos & RAM auslesen
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
objTextFile.WriteLine "MFName:" & objComputer.Manufacturer
objTextFile.WriteLine "MFModel:" & objComputer.Model
objTextFile.WriteLine "RAMSize:" & _
objComputer.TotalPhysicalMemory/1000000
NextMerci für Eure Hilfe
