vbs script

Re(8): vbs script

dev0 — Wed, 11 Feb 2009 12:43:07 GMT

super danke!!!!

Re(7): vbs script

dizo — Wed, 11 Feb 2009 12:40:39 GMT

http://msdn.microsoft.com/en-us/library/0ea7b5xe(VS.85 ).aspx

Re(6): vbs script

dev0 — Wed, 11 Feb 2009 12:13:43 GMT

danke fuer den tip, muss mir das mal anschauen.

Re(5): vbs script

dizo — Tue, 10 Feb 2009 23:09:45 GMT

Such mal nach SpecialFolders. Damit müsstest nicht den ganzen Pfad angeben. ALLUSERS macht im vbs teilweise Probleme.

Re(5): vbs script

dizo — Tue, 10 Feb 2009 23:09:45 GMT

Such mal nach SpecialFolders. Damit müsstest nicht den ganzen Pfad angeben. %ALLUSERS% macht im vbs teilweise Probleme.

Re(4): vbs script

dev0 — Tue, 10 Feb 2009 13:44:16 GMT

ich habe es nun mal so geloest, nicht schoen aber pfunziwunzifunztatatut genauso gut:

sLinkFile = "D:\Documents and Settings\All Users\Desktop" & "\" & project & " SBG WinXPSP2 29.01.2009 V" & rel & ".LNK"

trotzdem danke fuer die hilfe!!!!

Re(3): vbs script

-Transformer2K- — Tue, 10 Feb 2009 13:17:15 GMT

SET WshShell = CreateObject ("WScript.Shell")

ALLUSERSPROFILE = WshShell.Environment("Process")("ALLUSERSPROFILE")
wscript.echo ALLUSERSPROFILE

so?

Re(2): vbs script

dev0 — Tue, 10 Feb 2009 13:11:41 GMT

dann bekomme ich gar keinen shortcut mehr.

Re: vbs script

-Transformer2K- — Tue, 10 Feb 2009 12:51:25 GMT

probier statt UserDesktop die Windows-Variable %ALLUSERSPROFILE%

vbs script

dev0 — Tue, 10 Feb 2009 12:48:10 GMT

hallo,

habe hier ein vbs script was mir am schluss einen desktop - shortcut am angemeldetet user erstellt.

nun will ich das aber fuer "alluser" am desktop wie funktioniert das?

mit google finde ich nicht wirkl. was fuer mich brauchbares.

danke fuer die hilfe.

' ****** Verknüpfung erstellen ******

   Set oWS = WScript.CreateObject("WScript.Shell")


   sLinkFile = UserDesktop & "\" & project & " VMware V" & rel & ".LNK"

   Set oLink = oWS.CreateShortcut(sLinkFile)

   oLink.TargetPath = sDest & "\winXPPro.vmx"
   ' oLink.Arguments = ""
   ' oLink.Description = "MyProgram"
   ' oLink.HotKey = "ALT+CTRL+F"
   ' oLink.IconLocation = "C:\Program Files\MyApp\MyProgram.EXE, 2"
   ' oLink.WindowStyle = "1"
   ' oLink.WorkingDirectory = "C:\Program Files\MyApp"
   oLink.Save

ShellObj.Environment("USER").Remove "INSTPATH"
ShellObj.Environment("USER").Remove "ALLUSERSPROGRAMS"
ShellObj.Environment("USER").Remove "USERPROGRAMS"

on error resume next
set filesys = CreateObject ("Scripting.FileSystemObject")
set vbsfile = filesys.GetFile("D:\" & vz & "\Copyvmware-" & project & ".vbe")
vbsfile.Delete