Hallo VbS Progger,

und zwar habe ich ein Problem ich bin zur Zeit dabei für einen Windows Server 2003 ein VB Script zu schreiben welches
folgendes bearbeiten soll

Das Programm soll per Gruppenrichtlinien in ein
Windows 2003 Server eingespielt werden und automatisch bei jeden PC das lokale Administrator Passwort ändern. Dies soll
automatisch nach einen relativ einfachen Algorithmus
passieren, das lokale admin passwort soll eine Verschlüsselung aus dem PC-Namen sein, welche wie folgt z.B. aussehen:

DE01PC020, sozusagen das dass Programm automatisch erkennt wie der Computername ist
(ist im Programm soweit schon drinnen mit einer MSgBox hab ich es mir nur zur Sicherheit ausgeben lassen) und aus diesen
dann das lokale admin pw generiert wie z.b. deutschland02= (Sonderzeichen ergibt sicher wie aus obigen Beispiel aus der
letzten Zahl), allerdings habe ich es in meinen Programm nur hinbekommen das immer ein festes admin passwort vergeben wird...
Da ich auch leider noch nicht so fit in vbs bin, suche ich nun eine lösung wie ich den
algorithmus realisieren kann, die verwendung des computernamens (verknüpfung der funktionen? ), das automatische Ausführen
im Hintergrund...



Ich würde mich freuen wenn sich jemand finden würde der mir diesbezüglich helfen kann oder
sogar einen kleinen ausschnitt eines quellcodes haben sollte


Schönes Wochenende noch

kampfschnitzel



Option Explicit
On Error Resume Next

Const strUsername = "Administrator"
Const strPassword = "deutschland"

Dim strLocalComputer
Dim objLocalUser
Dim strComputername


strLocalComputer = GetComputername()

If strLocalComputer <> "" Then
Set objLocalUser = GetObject("WinNT://" & strLocalComputer & "/" & strUsername & ",user")
If Not IsEmpty(objLocalUser) Then
objLocalUser.SetPassword strPassword
objLocalUser.SetInfo
End If
Set objLocalUser = Nothing
End If
WScript.Quit(0)

Function GetComputername()
On Error Resume Next
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")

If Not IsEmpty(objNetwork) Then

GetComputername = objNetwork.ComputerName
End If
Set objNetwork = Nothing


'Ausgabe des Rechner Namen
set objNetwork = CreateObject("WScript.Network")
strComputerName = objNetwork.Computername
MsgBox "Rechnername: " & strComputerName


End Function