<package>
<job id="FP_Shortcut">
<script language="VBScript">
     Option Explicit
     Const OverwriteExisting = TRUE
 
     Dim oWshShell, oWshLink, oFSO, sDesktop, sMyDocuments
     Dim wks, WShell, FS, WNet, WReg, OSWMI, oswql, os, osv, xp, zk, WLink
 
     Set WShell = Wscript.CreateObject("WScript.Shell")
     Set FS = CreateObject("Scripting.FileSystemObject")
     Set OSWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" _
       & wks & "\root\cimv2")
     Set WLink = WShell.CreateShortcut(WShell.SpecialFolders("Desktop"))
 
 
     Set oFSO = CreateObject("Scripting.FileSystemObject")
 
     Set oWshShell = WScript.CreateObject("WScript.Shell")
     sDesktop = oWshShell.SpecialFolders("Desktop")
     sMyDocuments = oWshShell.SpecialFolders("MyDocuments")
     RDPpfad = oWshShell.SpecialFolders("MyDocuments\RDP-Profil")
 
     Set oswql = OSWMI.ExecQuery("Select * from Win32_OperatingSystem")
 
     for each os in oswql
     with os
     osv = .Caption
     end with
     next
 
     if osv =  xp or osv = zk then
 
     if FS.FileExists(RDPpfad) then
     else
     if FS.FolderExists(RDPpfad) then
     else
     FS.CreateFolder(RDPpfad)
     end if
 
     oFSO.CopyFile "\\DC01\netlogon\RDP-Profile\FP.rdp", 	sMyDocuments & _
       "\RDP-Profile\FP.rdp" OverwriteExisting
     oFSO.CopyFile "\\DC01\netlogon\RDP-Profile\FP.ico", 	sMyDocuments & _
     "\RDP-Profile\FP.ico" OverwriteExisting
 
     Set oWshLink = oWshShell.CreateShortcut(sDesktop & "\FP.lnk")
 
     oWshLink.TargetPath        = sMyDocuments & "\RDP-Profile\FP.rdp"
     owshLink.IconLocation      = sMyDocuments & "\RDP-Profile\FP.ico"
     owshLink.Hotkey            = "Ctrl+Alt+b"
     oWshLink.WorkingDirectory  = sMyDocuments
     oWshLink.Description       = "Dieses Symbol startet das Finanzprogramm"
 
     oWshLink.Save
 
</script>
</job>
</package>