copy von datein

[skyacer 10]

moin moin,

 

hab da folgendes problem.und zwar:

 

auf dem server gibt es eine freigabe"kunden" mit ca 30 unterordnern.

 

um den schnellen zugriff auf einen teil der unterordner zu haben wurden verknüpfungen auf dem desktop erstellt.

 

so da ich aber wenig lust habe für jeden neuen benutzer, wobei auch nicht jeder benutzer diese verknüpfungen haben soll, anzulegen.

 

gibt es da eine möglichkeit per copy/robocopy/etc das er aus einem extra ordner die verknüpfungen auf den jeweiligen desktop kopiert beim anmelden und ggf. überprüft ob diese schon vorhanden ist und wenn nicht das er zb. eine neue verknüpfung hinzufügt.

 

würde mich freuen wenn mir da jemand helfen könnte.

 

danke

[Cybquest 36]

Wenn's auch VBScript sein darf.

Sowas in der Art:

Set WshShell = WScript.CreateObject("WScript.Shell")
strPath = WshShell.Specialfolders("Desktop")
Set Link = WshShell.CreateShortcut(strPath & "\Verknüpfung1.LNK")
Link.TargetPath = "explorer.exe"
Link.Arguments = "G:\Pfad1"
Link.Description = "Öffnet G:\Pfad1 im Explorer"
Link.Save

Ggf. als Function definieren und mit versch. Parametern aufrufen...

[d.stegemann 10]

Wenns auch 'ne Sub sein darf ;)

 

Create_Link "Test", "\\Server\Freigabe", "TestLink", "85"

Sub Create_Link(V_Name, V_Pfad, V_Beschreibung, Iconnumber)
Set WshShell = WScript.CreateObject("WScript.Shell")
 strPath = WshShell.Specialfolders("Desktop")
Set Link = WshShell.CreateShortcut(strPath & "\" & V_Name &".LNK")
 Link.TargetPath = "explorer.exe"
 Link.Arguments = ""& V_Pfad &""
 Link.IconLocation = WshShell.ExpandEnvironmentStrings("%WinDir%")&"\System32\shell32.dll,"& Iconnumber &""
 Link.Description = ""& V_Beschreibung &""
 Link.Save
End Sub

 

Gruß

 

Dirk