Jump to content

Demon72

Members
  • Gesamte Inhalte

    143
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von Demon72

  1. Wenn der Fehler gekommen ist:

     

    Systemfehler 1219 aufgetreten.

     

    Mehrfache Verbindungen zu einem Server oder einer freigegebenen Ressource von de

    mselben Benutzer unter Verwendung mehrerer Benutzernamen sind nicht zulässig. Tr

    ennen Sie alle früheren Verbindungen zu dem Server bzw. der freigegebenen Ressou

    rce, und versuchen Sie es erneut.

     

    dann ist doch alles schon gesagt. Es besteht bereits einer Verbindung zum gleichen Server, aber mit anderer Anmeldung. Eine zweite Verbindung, mit anderer Anmeldung ist nicht möglich! Es wird wohl bereits ein anderes Share auf dem gleichen Server mit dem angemeldetem User verbunden sein. Mal "net use * /delete" ausführen und dann Verbinden.

  2. Dim strUser

    Dim strGroup

    Dim bolMemberOfGroup

    Dim objShell, objFSO, objADOConection, objADOCommand, objRecordSet, wshNetwork, regEx, DL, x

    Set objShell = Wscript.CreateObject ("Wscript.Shell")

    Set WshNetwork = WScript.CreateObject("WScript.Network")

    strPacFile = objShell.ExpandEnvironmentStrings("%TEMP%") & "\ext_auto.pac"

    strUser = WshNetwork.UserName

    Set objADOConection = CreateObject("ADODB.Connection")

    objADOConection.Provider = "ADsDSOObject"

    objADOConection.Open "Active Directory Provider"

    Set objADOCommand = CreateObject("ADODB.Command")

    Set objADOCommand.ActiveConnection = objADOConection

    objADOCommand.CommandText = "<LDAP://DC=MICROSOFT,DC=COM>;(&(objectClass=user)(sAMAccountName=" & strUser & "));memberOf;subtree"

    Set objRecordSet = objADOCommand.Execute

    strGroup = "TESTGROUP"

    Set regEx = New RegExp

    regEx.Pattern = strGroup

    regEx.IgnoreCase = TRUE

    If objRecordSet.fields.count = 1 Then

    DL = objRecordSet.Fields(0).Value

    For Each x In DL

    bolMemberOfGroup = regEx.Test(x)

    If bolMemberOfGroup Then

    Exit For

    End If

    Next

    If bolMemberOfGroup Then

    ....

    End If

    End If

    Set objRecordSet = Nothing

    Set objADOCommand = Nothing

    Set objADOConection = Nothing

    Set regEx = Nothing

    Set WshNetwork = Nothing

    Set objShell = Nothing

  3. Bei mir war nach einem BIOS Update das Vista nicht mehr aktiviert. Online-Aktivierung ging auch nicht. Am Telefon wurde ich noch zu einem Mitarbeiter durchgestellt und musste ihm erklären warum ich mein Vista zum wiederholten Male aktivieren wolle. Mal sehen, was passiert, wenn neue Firmware für meinen DVD-Brenner kommt. Echt nervig das ganze.

  4. nun - ich weiss, dass man mit dem Windows Scripting Host eine Connction auf bestimmten Ports öffnen und auch schliessen kann. Ob das Schliessen alleine geht, ist mir nicht bekannt. Beispiel:

    set wsock = server.createobject("MSWinsock.Winsock")

    wsock.localport = 2499

    wsock.remoteport = 3499

    wsock.remotehost = "127.0.0.1"

    wsock.connect

    wsock.close

×
×
  • Neu erstellen...