Dim fso
Set Shell = CreateObject("WScript.Shell")

ProgramsPath = Shell.SpecialFolders("AllUsersPrograms")
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists(ProgramsPath & "\Digital Empire")) Then 
fso.CreateFolder (ProgramsPath & "\Digital Empire")
End If
Set link = Shell.CreateShortcut(ProgramsPath & "\Digital Empire\DE Black Spider.lnk")
rem link.Arguments = ""
link.Description = "DE-BlackSpider Starter Kit Monitor"
rem link.HotKey = ""
rem link.IconLocation = ""   -- not worked on some XP
link.TargetPath = WScript.Arguments.Named.Item("p")
link.WindowStyle = 1
link.WorkingDirectory = WScript.Arguments.Named.Item("s") & "\agents\"
link.Save

DesktopPath = Shell.SpecialFolders("Desktop")
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists(DesktopPath & "\Digital Empire")) Then 
fso.CreateFolder (DesktopPath & "\Digital Empire")
End If
Set link = Shell.CreateShortcut(DesktopPath & "\DE Black Spider.lnk")
rem link.Arguments = ""
link.Description = "DE-BlackSpider Starter Kit Monitor"
rem link.HotKey = ""
rem link.IconLocation = ""   -- not worked on some XP
link.TargetPath = WScript.Arguments.Named.Item("p")
link.WindowStyle = 1
link.WorkingDirectory = WScript.Arguments.Named.Item("s") & "\agents\"
link.Save

ProgramsPath = Shell.SpecialFolders("AllUsersPrograms")
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists(ProgramsPath & "\Digital Empire")) Then 
fso.CreateFolder (ProgramsPath & "\Digital Empire")
End If
Set link = Shell.CreateShortcut(ProgramsPath & "\Digital Empire\ÀÐÌ ÔÓÑ ÏË.lnk")
rem link.Arguments = ""
link.Description = "ÀÐÌ ÔÓÑ ÏË"
rem link.HotKey = ""
rem link.IconLocation = ""   -- not worked on some XP
link.TargetPath = WScript.Arguments.Named.Item("r")
link.WindowStyle = 1
link.WorkingDirectory = WScript.Arguments.Named.Item("s") & "\arm\"
link.Save

ProgramsPath = Shell.SpecialFolders("AllUsersPrograms")
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists(ProgramsPath & "\Digital Empire")) Then 
fso.CreateFolder (ProgramsPath & "\Digital Empire")
End If
Set link = Shell.CreateShortcut(ProgramsPath & "\Digital Empire\Ðóêîâîäñòâî.lnk")
rem link.Arguments = ""
link.Description = "Ðóêîâîäñòâî ïî ïðîãðàììå ÀÐÌ ÔÓÑ ÏË"
rem link.HotKey = ""
rem link.IconLocation = ""   -- not worked on some XP
link.TargetPath = WScript.Arguments.Named.Item("t")
link.WindowStyle = 1
link.WorkingDirectory = WScript.Arguments.Named.Item("s") & "\doc\"
link.Save

