Dell Service-Tags Remote per Script auslesen
Hallo ihr,
habe mit einem Kollegen zusammen ein Script gebastelt, was bei uns Inhouse super funktioniert - jedoch beim Kunden nicht. Vielleicht findet ihr einen Fehler....
Das Script wird über die CMD als Domänenadmin ausgeführt:
Danke vorab!
habe mit einem Kollegen zusammen ein Script gebastelt, was bei uns Inhouse super funktioniert - jedoch beim Kunden nicht. Vielleicht findet ihr einen Fehler....
Das Script wird über die CMD als Domänenadmin ausgeführt:
On Error Resume Next
set objFSO = CreateObject("Scripting.FileSystemObject")
strInputFile = inputBox("Where is the file containing the computer names?",vbOkOnly+vbInformation,"C:\temp\computers.txt")
set objInputFile = objFSO.OpenTextFile(strInputFile)
set objOutputFile = objFSO.CreateTextFile("d:\kunden\****\service tag\results.txt")
allComputers = objInputFile.ReadAll()
arrComputers = split(allComputers, vbCrLf)
For Each strComputer in arrComputers
objOutputFile.WriteLine strComputer
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For Each objItem in colItems
objOutputFile.WriteLine vbTab & objItem.SerialNumber
Next
set colItems2 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem2 in colItems2
objOutputFile.WriteLine vbTab & objItem2.UserName
objOutputFile.WriteLine vbTab & objItem2.Model & vbCrLf
Next
Next
msgBox "Script finished. Results can be found at C:\temp\results.txt",vbOkOnly+vbInformation,"Finished"
Danke vorab!
Please also mark the comments that contributed to the solution of the article
Content-Key: 139033
Url: https://administrator.de/contentid/139033
Printed on: April 28, 2024 at 12:04 o'clock
2 Comments
Latest comment
Hallo SonnyBlack219!
Es wäre zunächst erstmal sinnvoll, das On Error mit einem Kommentarzeichen zu versehen, um eventuell eine entsprechende Fehlermeldung zu bekommen?
Mein erster Verdacht wäre, das der Ordner-Pfad in Codezeile 5 noch nicht existiert?
Gruß Dieter
Es wäre zunächst erstmal sinnvoll, das On Error mit einem Kommentarzeichen zu versehen, um eventuell eine entsprechende Fehlermeldung zu bekommen?
Mein erster Verdacht wäre, das der Ordner-Pfad in Codezeile 5 noch nicht existiert?
Gruß Dieter