Armbrust

Ja das stimmte, wegen einrichten des Benutzerkontos waren da noch Adminrechte drauf. Ohne funktioniert es ohne Probleme.

Danke für die Links.

[GELOEST]

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#####

Das ist klar,

aber leider auch da nicht.

Wie gesagt, führe ich das Skript nach dem Anmelden Manuel aus, funktioniert es tadellos.

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ß

Vielen Dank, hat jetzt funktioniert.

[GELOEST]

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.

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ß