Jump to content

Armbrust

Members
  • Gesamte Inhalte

    7
  • Registriert seit

  • Letzter Besuch

Profile Fields

  • Member Title
    Newbie

Fortschritt von Armbrust

Apprentice

Apprentice (3/14)

  • Erste Antwort
  • Erster eigener Beitrag
  • Eine Woche dabei
  • Einen Monat dabei
  • 1 Jahre dabei

Neueste Abzeichen

10

Reputation in der Community

  1. Ja das stimmte, wegen einrichten des Benutzerkontos waren da noch Adminrechte drauf. Ohne funktioniert es ohne Probleme. Danke für die Links. [GELOEST]
  2. Nur Laufwerke: ' #####BOF##### ' logon.vbs ' ############# Option Explicit On Error Resume Next Dim WSHNetwork, WSHShell, CRLF, objArgs, strMsg, Company, i, colDrives Dim colPrinters, UserName, LogonSRV, Domain, nReturnCode, nSecondsToWait CRLF = Chr(13) & Chr(10) LogonSRV = "domain.intra" Set WSHNetwork = Wscript.CreateObject("WScript.Network") Set WSHShell = WScript.CreateObject("WScript.Shell") WScript.sleep 5000 Set objArgs = Wscript.Arguments ' Auslesen des Benutzernamens Set WshNetwork = WScript.CreateObject("WScript.Network") UserName = WshNetwork.UserName ' Einrichten der Netzlaufwerke Company = "ddm.intra" Domain = WSHNetwork.Userdomain Do While UserName = "" UserName = WSHNetwork.UserName Loop WSHNetwork.RemoveNetworkDrive "I:" WSHNetwork.RemoveNetworkDrive "M:" WSHNetwork.RemoveNetworkDrive "U:" WSHNetwork.MapNetworkDrive "I:", "\\Server\LW1" WSHNetwork.MapNetworkDrive "M:", "\\Server\LW2" WSHNetwork.MapNetworkDrive "U:", "\\Server\" & UserName If WSHNetwork.UserName = "Doering" OR WSHNetwork.UserName = "xxx" Then WSHNetwork.RemoveNetworkDrive "Q:" WSHNetwork.MapNetworkDrive "Q:", "\\Server\LW3" End If 'Laufwerksbezeichnung ndern '* Bentigte Deklarationen Set oShell = CreateObject("Shell.application") Set oShFolder = oShell.Namespace(17) '* Aufruf der Subroutine Call subdriverename '* Die Routine Sub subdriverename() For Each oShFolderItem In oShFolder.Items Select Case oShFolderItem.Path Case "I:\" oShFolderItem.Name = "var1" Case "I:" oShFolderItem.Name = "var1" Case "M:\" oShFolderItem.Name = "var2" Case "M:" oShFolderItem.Name = "var2" Case "U:\" oShFolderItem.Name = UserName Case "U:" oShFolderItem.Name = UserName End Select Next End Sub ' ---------------------------------------------------------- ' Überschrift und Ausgabe Set colDrives = WSHNetwork.EnumNetworkDrives Set colPrinters = WSHNetwork.EnumPrinterConnections strMsg = _ "Anmelde Ergebnisse" & CRLF & CRLF & _ "Benutzername" & Chr(9) & "= " & UserName & CRLF & _ "Computername" & Chr(9) & "= " & _ WSHNetwork.ComputerName & CRLF & _ "Domne" & Chr(9) & Chr (9) & "= " & Domain & CRLF If colDrives.Count = 0 Then strMsg = strMsg & CRLF & _ "Kein Netzlaufwerk ist verbunden." & CRLF Else strMsg = strMsg & CRLF & _ "Verbundene Netzlaufwerk(e):" & CRLF For i = 0 To colDrives.Count - 1 Step 2 strMsg = strMsg & CRLF & colDrives(i) & _ Chr(9) & colDrives(i + 1) Next End If Function zeit ' FormatDateTime formatiert das Datum als langes Datumsformat. zeit = "Systemzeit: " & Chr(9) & FormatDateTime(Date, 1) & " - " & FormatDateTime(Time, 4) End Function WshShell.PopUp zeit & CRLF & CRLF & strMsg,10, " " & Username &"@" & Company, 64 Set WSHNetwork = Nothing Set WSHShell = Nothing Set objArgs = Nothing Set colDrives = Nothing Set colPrinters = Nothing ' #####EOF#####
  3. Das ist klar, aber leider auch da nicht. Wie gesagt, führe ich das Skript nach dem Anmelden Manuel aus, funktioniert es tadellos.
  4. Hallo, haben bei uns eine 2003 Domäne mit XP Rechnern. Die Netzwerklaufwerke werden vom DC per VBS an den jeweiligen User übertragen. Bei XP funktioniert das auch alles wunderbar, nur jetzt kommen die ersten Windows 7 Rechner und ich bekomme keine Automatische Netzwerklaufwerkszuordnung. Bei der MsgBox, nachdem das Script ausgeführt wurde, stehen zwar Uhrzeit, User, Domäne und alle Netzwerklaufwerke korrekt drin, aber wenn ich anschließend im Explorer schaue gibt es keine Netzwerklaufwerke :(. Führe ich das VBS jedoch manuell vom Rechner aus, funktioniert es tadellos??? Was mache ich falsch? Oder gibt es unter Windows 7 andere Möglichkeiten, um die Laufwerke zu mappen. Ohne CMD-Batchdatei. Gruß
  5. Vielen Dank, hat jetzt funktioniert. [GELOEST]
  6. Auf den Rechnern ist Windows 7 Professional installiert. Aus dem Testrechner hab ich erst einmal die Firewall ausgeschaltet, von daher sollte es ja keine Firewallprobleme geben. Die Verknüpfung "msra.exe /offerra" hab ich auf meinen Rechner auch erstellt. Nur wenn ich die IP des Rechners eintrage kommt eine Meldung, das ich keine Berechtigung auf diesem Rechner habe. Auf dem Rechner hab ich mich aber eingetragen, das ich mit meinem Domänenkonto da zugreifen darf.
  7. Hallo unsere neuen Rechner werden nun langsam aber sich auch von XP auf Windows 7 wechseln. Bei XP war die Fernwartung eigentlich kein Großes Problem, VNC-Server als Fernwartungslink ins Startmenü und gut war. Bei Windows 7 geht’s so ja leider nicht mehr, da ich die ersten Probleme bekomme, wenn der User auf einmal eine Adminabfrage bekommt. Ab diesem Moment kann ich im Programm nur noch zuschauen und muss ihm sagen was er machen soll :(. Hab im Netz dann mal nach einer guten Lösung gesucht und bin auf die Remotedesktopunterstützung aufmerksam geworden. Nur leider bekomme ich keine Berechtigung, den entfernten Rechner fernzusteuern. Im Ereignisprotokoll des Hostrechners taucht der Fehler 10016 aus, das ich also keine Berechtigung habe. Hab meinen Benutzer dann nochmals ausdrücklich erlaub den RAServer zu steuern, aber auch das ergab leider keine Besserung. Hat hier schon jemand dieses Problem gehabt und kann mir sagen, welche Berechtigung vergeben werden muss, damit ich mit Windows 7 einen anderen Windows 7 Rechner fernsteuern kann. Die Fernsteuerung soll aber ohne eine E-Mail oder Dateieinladung passieren. Gruß
×
×
  • Neu erstellen...