Globale Gruppen Anlegen

1. offizieller Beitrag

    Ich habe eine VBS Script was läuft, aber ich bekommen es nicht in AutoIT zum laufen ?(

    Spoiler anzeigen
    [autoit]


    Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2

    [/autoit] [autoit][/autoit] [autoit]

    Set objOU = GetObject("WinNT://VPC_NT4SRV_HH")
    Set objGroup = objOU.Create("Group", "gg_test")

    [/autoit] [autoit][/autoit] [autoit]

    objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP
    objGroup.SetInfo

    [/autoit]

    Mein AutoIT Script sieht dann so aus:

    Spoiler anzeigen
    [autoit]


    Const $ADS_GROUP_TYPE_GLOBAL_GROUP = "&h2"

    [/autoit] [autoit][/autoit] [autoit]

    $objOU = ObjGet("WinNT://VPC_NT4SRV_HH")
    $objGroup = $objOU.Create("Group", "gg_test")

    [/autoit] [autoit][/autoit] [autoit]

    $objGroup.Put ("groupType", $ADS_GROUP_TYPE_GLOBAL_GROUP)
    $objGroup.SetInfo()

    [/autoit]

    Bekomme immer den Fehler:

    Spoiler anzeigen


    ==> The requested action with this object has failed.:
    $objGroup.Put("groupType", $ADS_GROUP_TYPE_GLOBAL_GROUP)
    $objGroup.Put("groupType", $ADS_GROUP_TYPE_GLOBAL_GROUP)^ ERROR

    Ich komm nicht weiter :(

    Hoffe es kann mir jemand helfen.

    Danke

    Gruß

    • Offizieller Beitrag

    Hi,

    hilft das?

    Spoiler anzeigen
    [autoit]

    ; Init objects
    $UserName = 'Test'
    $Password = 'Password'
    $oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler
    $strComputer = @ComputerName
    $colAccounts = ObjGet("WinNT://" & $strComputer & "")
    $objUser = $colAccounts.Create("user", $UserName)
    $objUser.SetPassword ($Password)
    $objUser.Put ("Fullname", "Test User")
    $objUser.Put ("Description", "Test User description")
    $objUser.SetInfo
    ;Add User to group
    $objGroup = ObjGet("WinNT://" & $strComputer & "/Administrator,group")
    $objGroup.Add($objUser.ADsPath)
    ;
    ;
    ; This is my custom error handler
    Func MyErrFunc()
    $HexNumber=hex($oMyError.number,8)
    Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
    "Number is: " & $HexNumber & @CRLF & _
    "Linenbr is: " & $oMyError.scriptline & @CRLF & _
    "Description is: " & $oMyError.description & @CRLF & _
    "Windescription is: " & $oMyError.windescription )

    [/autoit] [autoit][/autoit] [autoit]

    SetError(1); something to check for when this function returns
    Endfunc

    [/autoit]

    So long,

    Mega

    Hey,

    danke für die Antwort. Hilft mir leider nicht so wirklich weiter. DAs Problem ist, dass mit dieser Methode nur lokale Gruppen erstellt werden. Es geht mir nur um das reine erstellen einer Globalen Gruppe. DAs funktioniert wunderbar mit dem VBS Skript oben, nun will ich dies halt in AutoIT mit einbinden. Er meckert immer :comp2:
    Das kann doch nicht so wild sein, ging doch bisher alles wunderbar...

    Gruß