Bios per remote auslesen Windows 7

Also folgendes:
Ich muss alle Service Tag nummern von DELL Rechnern in einer Dienststelle aufschreiben. Leider ist die Dienststelle in Berlin und ich in Bonn. Deswegen soll dies per remote geschehen.

Bisher habe ich dafür das Tool Advanced Remote Info benutzt. Dies hat mir bei Windows XP rechnern einfach unter BIOS S/N die Service Tag NR angezeigt.
Leider funktioniert dies unter Windows 7 nicht mehr.
Nun kam ich auf die Idee remote shell von Advanced Remote Info zu benutzen und dort den befehl "wmic bios get serialnumber" zu benutzen. Dort macht er nach Eingabe der Zeile entweder garnichts oder schreibt das wmic installiert wird, aber installieren tut er nichts . Leider klappt dies also ohne admin rechte nicht. Also runas versucht.
Leider verlangt er dann zwar das ich das Kennwort eingebe, aber eine Chance es einzugeben lässt er mir nicht. Er springt automatisch direkt wieder eine zeile weiter zu "c:\windows\" so dass ich einen neuen Befehl eingeben soll. Ich vermute das dies mit der UAC zusammenhängt, da bei 2 Windows 7 Rechnern wo diese vermutlich ausgeschaltet ist, gibt mir der befehl die service tag nummer zurück.

Nun war meine idee einen kennwortlosen Administrator zu erstellen. Pustekuchen, er verlangt trotzdem eine Kennwort Eingabe. Jetzt bin ich mit meinem Latein am Ende, und hoffe das jemand von euch eine Idee hat?


Grüße

Bloodydeluxe

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

Set fso = CreateObject("Scripting.FileSystemObject")   

strComputer = "."  

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
   Set colItems = objWMIService.ExecQuery("SELECT SerialNumber FROM Win32_SystemEnclosure",_  
						 ,wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems
       	SerialNR = objItem.SerialNumber
   Next

	'Überprüfen, ob Seriennummer vorhanden. Wenn nicht wird der Name als Seriennummer definiert  
	Set colItems = objWMIService.ExecQuery("Select Name from Win32_ComputerSystem", ,wbemFlagReturnImmediately + wbemFlagForwardOnly)  

	FOR EACH objItem in colItems
		IF SerialNR = "" Then  
			SerialNr = objItem.Name
		END IF
		computername = objItem.Name
	NEXT
	SerialNR = Trim(SerialNR)
Set oFile = fso.OpenTextFile("C:\" & Computername & ".txt",2,True)  
oFile.WriteLine Computername & " - " & SerialNR	  
	
Set oFile = nothing

Set oFile = fso.OpenTextFile("C:\Serial.txt",2,True)  
str = ""