Admin-Passwort über VB-Script festlegen

Hallo zusammen,

ich habe hier im Forum bereits ein Script gefunden für das festlegen des Administrator-Passwortes auf einem bestimmten Rechner. Meine Frage wäre dazu folgende. Da wir probieren bei jedem Rechner ein anderes PW festzulegen, haben wir es bisher so gehandhabt, dass wir eine Zusammensetzung aus einem PW mit dem Rechnernamen als Passwort nehmen. Ist es über ein VB-Script auch möglich den entsprechenden Rechnernamen auszulesen und mit der von uns festgelegten Zeichenfolge zu einem Administratorpasswort zu kombinieren?

Sprich:

Rechner1 soll das Passwort : "PassRechner1"
Rechner2 soll das Passwort : "PassRechner2"

automatisch durch das Script zugewiesen bekommen ohne das wir jedes Mal das vorher abwandeln müssen.

Ich wäre über einen Tipp von euch sehr dankbar.

Gruß
Maffinity

'vbscript  
strComputer = "."  
Set objUser = GetObject("WinNT://" & strComputer & "/Administratör, user")  

objUser.SetPassword "Pass_Rechnername"  
objUser.SetInfo

'vbscript  
Set oShell = CreateObject( "WScript.Shell" )  
strComputer = oShell.ExpandEnvironmentStrings("%ComputerName%")  
Set objUser = GetObject("WinNT://" & strComputer & "/Administratör, user")  

objUser.SetPassword "Pass_" & strComputer  
objUser.SetInfo

Set oShell = CreateObject( "WScript.Shell" )  
strComputer = oShell.ExpandEnvironmentStrings("%ComputerName%")  
Set objUser = GetObject("WinNT://" & strComputer & "/Administratör, user")  

if Len(strComputer) > 2 Then
  strPass = "Pass_" & _  
    Lower(Left(strComputer,1) & _
    Upper(Mid(strComputer,1,Len(strComputer-2) & _
    Lower(Right(strComputer,1)
else
  strPass = "Pass_" & _  
  Lower(strComputer)
end if

objUser.SetPassword  strPass
objUser.SetInfo