Frage : vbscript verursachen den Abkürzungindex und nicht schließen Index, keine Störungen ab, der angebrachte Code

Hallo verursacht alles,

my unterhalb des Indexes zuerst eine Abkürzung für Benutzer heraus zum Bedieneranteil, wenn einer nicht bereits existiert, bearbeitet fine

second Löschungen die Rückstellungsprogrammabkürzung für Tat, wenn er existiert, Arbeiten fine

now tut, das das 3. sollte eine Abkürzung zur Tatenauflageakte verursacht, wenn es nicht exists
i meine Mitteilung „TAT erhält! Verbindung existiert nicht jetzt verursachend!“ dann tut sie nicht anything
i Neigung sieht, warum es jedes (nur ein Anfänger mit vbscript Verstand Sie)

can niemand Punkt es heraus zu mir funktionieren würde?
Thanks 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

Dim objShell: objShell = CreateObject („WScript.Shell“) einstellen
objFSO verdunkeln: objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
strDesktopPath, ShrtServerFolders, ShrtACT verdunkeln

strDesktopPath = objShell.SpecialFolders („Schreibtisch“)


Wenn nicht objFSO.FileExists (strDesktopPath u. „\ Bediener Folders.lnk“) dann 'überprüfen, ob Bedienerfaltblattabkürzung existiert
	ShrtServerFolders = objShell.CreateShortcut einstellen (strDesktopPath u. „\ Bediener Folders.lnk“) 'herstellen Bedienerfaltblattverbindung
	ShrtServerFolders.TargetPath = „\ \ domain.local \ Anteil“
	ShrtServerFolders.IconLocation = „c:\windows\system32\shell32.dll, 85“
	ShrtServerFolders.Save 
Beenden wenn

Wenn objFSO.FileExists (strDesktopPath u. „\ TAT! durch Sage Premium.lnk“) 'die abgekürzten dann löschen Tatenprogrammakten, wenn sie existiert
	msgbox „, das sein ist dort“
	objFSO.DeleteFile strDesktopPath u. „\ TAT! durch Sage Premium.lnk“ 'die Verbindung löschen
sonst
msgbox „TAT! durch Sage existiert Premium.lnk nicht!“
Beenden wenn

Wenn nicht objFSO.FileExists (strDesktopPath u. „\ TAT! .lnk“) dann 'überprüfen, ob TATEN-Auflageabkürzung existiert
	msgbox „TAT! Verbindung existiert nicht jetzt verursachend!“
	ShrtACT = objShell.CreateShortcut einstellen (strDesktopPath u. „TAT! .lnk“) 'stellen Tatenauflageverbindung her
	ShrtACT.TargetPath = „\ \ domain.local \ Anteil \ TAT \ CH.PAD“
	ShrtACT.IconLocation = „\ \ domain.local \ NETLOGON \ act.ico, 0“
	ShrtACT.Save 

sonst
msgbox „TAT! Verbindung existiert“
	
Beenden wenn

Antwort : vbscript verursachen den Abkürzungindex und nicht schließen Index, keine Störungen ab, der angebrachte Code

„Mailto: [email protected]? Subject=MySubject&Body=MyBody“
Weitere Lösungen  
 
programming4us programming4us