windows - Opret brugerkonto med VBScript

Indlæg af Hanne Mølgaard Plasc

Problem



Jeg bruger denne kode til at oprette brugerkonto,


Funktion Opret brugerAccount (acc, paas)


 Dim WinUserAccountName, WinUserAccountPass

 WinUserAccountName = Session.Property("WIN\_USER\_ACCOUNT")
 WinUserAccountPass = Session.Property("WIN\_USER\_PASS")

 strComputer = "."
 set objSystem = GetObject("WinNT://" & strComputer)
 set objUser = objSystem.Create("user", WinUserAccountName)
 objUser.SetPassword WinUserAccountPass
 objUser.SetInfo


Slutfunktion


Det virker OK så langt, det eneste jeg skal implementere er:



  1. Når brugernavnet allerede er i maskinen. Vis besked til brugeren, der fortæller ham/hende, at dette brugernavn allerede eksisterer.



Hvordan kan jeg gøre det i VBScript? Er der fejlkode jeg kan fange?


Tak,

Bedste reference


OK, jeg fandt scriptet jeg ledte efter:


QueryForUser("kenmyer")
Wscript.Echo "This user account does not exist."

Sub QueryForUser(strUserName)
    strComputer = "."
    Set objDomain = GetObject("WinNT://" & strComputer)
    objDomain.Filter = Array("user")
    For Each User In objDomain
        If lcase(User.Name) = lcase(strUserName) Then
            WScript.Echo User.Name & " already exists."
            WScript.Quit
        End If    
    Next
End Sub