Verkünpfungen von Arbeitsgruppencomputern in einem Ordner auf dem Desktop erstellen

'ComputerLinks.vbs  
Set objShell = CreateObject("WScript.Shell")  
Set fso = CreateObject("Scripting.FileSystemObject")  
TPath = objShell.SpecialFolders("Desktop") & "\Teilnehmer"  
If Not fso.FolderExists(TPath) Then fso.CreateFolder(TPath)
For Each File In fso.GetFolder(TPath).Files
	If LCase(Right(File.Name, 4)) = ".lnk" Then File.Delete  
Next
aDOSOut = Split(objShell.Exec("net view").StdOut.ReadAll, vbCrLF)  
For i = 0 To UBound(aDOSOut)
	If Left(aDOSOut(i), 2) = "\\" Then   
		If strComps = "" Then  
			strComps = Trim(aDOSOut(i))
		Else
			strComps = strComps & ";" & Trim(aDOSOut(i))  
		End If
	End If
Next
aComps = Split(strComps, ";")  
For i = 0 To UBound(aComps)
	Set objShortcut = objShell.CreateShortcut(TPath & "\" & Mid(aComps(i), 3) & ".lnk")  
	objShortcut.TargetPath = aComps(i)
	objShortcut.Save
Next
WScript.Echo "Computerliste erstellt."