Dlaczego ten skrypt nie działa

Dzień dobry

Mam problem ze skryptem, który ma zakładać lokalnego usera.
Skrypt jest wołany przez usera bez uprawnień administracyjnych.
Wywala się z komunikatem 'Active Directory: Ogólny błąd odmowy dostępu.'
w linii objUser.SetInfo.
Komputer komp01 to XPSP2, w domenie W2K3.
Będę wdzięczny za wszelkie sugestie, albo za info, że się nie da.

Function RunAsAdmin()
     strComputer = "WinNT://komp01"
     strUser = "AdminUserName"
     strPassword = "AdminPass"
     Set objDSO = GetObject("WinNT:")
     Set obj1 = objDSO.OpenDSObject _
         (strComputer, strUser, strPassword, 1)
     strNewUserName = "test01"
     strNewPassword = "1234asdf"
     Set objUser = obj1.Create("user", strNewUserName)
     objUser.SetPassword strNewPassword
     objUser.SetInfo
End Function

RunAsAdmin

-- 
Adam Liberacki