VBS WMI programmering og oprettelse af lokale brugere.

Jeg er ved at lave et script der skal oprette en bruger og tilføje den til en gruppe, men sidste linje i scriptet fejler. Jeg har fundet frem til det sandsynligvis er en fejl i en group policy, men jeg ved ikke hvor. Serveren er ikke tilkoblet et AD.

I kan prøve scriptet på jeres egne computere, hvis blot I opretter en gruppe der hedder 'www'.

pwdtegn = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")

For i = 1 to 8
    randomize
    password = password & pwdtegn(Int(rnd() * ubound(pwdtegn) + 1))
Next

hostnavn = InputBox("Skriv sitenavn")
strComputer = "."


'Opret bruger
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", hostnavn)
objUser.SetPassword password
objUser.SetInfo
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR &h10000
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
Set objUser = Nothing


'Tilføj bruger til gruppe
Set objGroup = GetObject("WinNT://" & strComputer & "/WWW,group")
Set objUser = GetObject("WinNT://" & strComputer & "/" & hostnavn & ",user")
objGroup.Add(objUser.ADsPath)