Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

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

Frage Netzwerke

Mitglied: Peter161

Peter161 (Level 1) - Jetzt verbinden

25.06.2007, aktualisiert 27.06.2007, 2991 Aufrufe, 5 Kommentare

Ich möchte mir auf dem Desktop in den Ordner Teilnehmer eine Verknüpfung aller derzeit verfügbaren Arbeitsgruppencomputern anzeigen lassen, alle die nicht verfügbar sind bzw. ausgeschaltet, sollen nicht erscheinen. Danke für eure Hilfe
Mitglied: bastla
25.06.2007 um 19:00 Uhr
Hallo Peter161!

Du könntest es mit dem folgenden VB-Script versuchen:
01.
'ComputerLinks.vbs 
02.
Set objShell = CreateObject("WScript.Shell") 
03.
Set fso = CreateObject("Scripting.FileSystemObject") 
04.
TPath = objShell.SpecialFolders("Desktop") & "\Teilnehmer" 
05.
If Not fso.FolderExists(TPath) Then fso.CreateFolder(TPath) 
06.
For Each File In fso.GetFolder(TPath).Files 
07.
	If LCase(Right(File.Name, 4)) = ".lnk" Then File.Delete 
08.
Next 
09.
aDOSOut = Split(objShell.Exec("net view").StdOut.ReadAll, vbCrLF) 
10.
For i = 0 To UBound(aDOSOut) 
11.
	If Left(aDOSOut(i), 2) = "\\" Then  
12.
		If strComps = "" Then 
13.
			strComps = Trim(aDOSOut(i)) 
14.
		Else 
15.
			strComps = strComps & ";" & Trim(aDOSOut(i)) 
16.
		End If 
17.
	End If 
18.
Next 
19.
aComps = Split(strComps, ";") 
20.
For i = 0 To UBound(aComps) 
21.
	Set objShortcut = objShell.CreateShortcut(TPath & "\" & Mid(aComps(i), 3) & ".lnk") 
22.
	objShortcut.TargetPath = aComps(i) 
23.
	objShortcut.Save 
24.
Next 
25.
WScript.Echo "Computerliste erstellt."
Script unter zB "ComputerLinks.vbs" speichern und per Doppelklick starten.

Falls der Ordner "Teilnehmer" noch nicht auf dem Desktop existiert, wird er angelegt. Alle im Ordner befindlichen Verknüpfungen werden zunächst gelöscht und danach jene für die erreichbaren Computer neu erstellt.

Grüße
bastla
Bitte warten ..
Mitglied: Peter161
26.06.2007 um 14:21 Uhr
Hallo Danke für die schnelle Hilfe, es funktioniert wirklich wunderbar. Daraus ergibt sich eine nächste Frage: Geht es das wenn ich über rechtsklick_senden_an_comeverzeichnisse (das ist ein Ordner, in dem Verknüpfungen zu den Austauschordnern der Benutzer bzw. Eingehende Dokumente sind) eine Datei sende eine Fenster oder Dialog öffnet, in dem man die Verzeichnisse davor mit einem Haken versehen kann und Das man dann auf austeilen geht und der das an alle verzeichnisse die einen Haken haben austeilt???
Bitte warten ..
Mitglied: bastla
26.06.2007 um 16:34 Uhr
Hallo Peter161!

Nur als Überlegung zwischendurch - wäre das nicht per Mail (Link zur Datei an einzelne Empfänger und oder Gruppen verschicken) sinnvoller (ua hätten alle Beteiligten dann auch eine Dokumentation des Vorganges)?

Grüße
bastla
Bitte warten ..
Mitglied: Peter161
26.06.2007 um 16:37 Uhr
Nur als Überlegung zwischendurch -
wäre das nicht per Mail (Link zur Datei
an einzelne Empfänger und oder Gruppen
verschicken) sinnvoller (ua hätten alle
Beteiligten dann auch eine Dokumentation des
Vorganges)?

Ich verstehe deine Überlegungen nicht, bitte erkläre mir diese.
Hast du eventuell eine Lösung?
Bitte warten ..
Mitglied: bastla
27.06.2007 um 11:00 Uhr
Hallo Peter161!

Villeicht beschreibst Du einmal etwas ausführlicher, wozu das Ganze dienen soll ...
Zu der Überlegung "Mail": Alle (ev bereits zu Gruppen zusammengefassten) Empfänger, welche die entsprechende Datei benötigen (könnten), erhalten eine Mail mit einem Link zum Speicherort der Datei.

Der Vorteil einer solchen Lösung: Auch wenn ein Empfänger derzeit nicht online ist, kann er/sie die Datei erhalten, und zusätzlich dokumentiert die Mail für alle Beteiligten, wann die Datei bereitgestellt wurde.
Da VBS eigentlich keine grafische Oberfläche bietet (sondern erst VB oder VBA), ist die Umsetzung Deines Vorschlages (etwa über eine DHTML-Lösung) zumindest etwas aufwändig - falls überhaupt, komme ich erst später dazu, mich damit zu beschäftigen ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Windows Server
RDP File per GPO auf Thin Client Desktop erstellen (10)

Frage von sayohh zum Thema Windows Server ...

Windows 10
gelöst Desktop-Ordner werden erst nach 30 Minuten geöffnet (7)

Frage von Thorit zum Thema Windows 10 ...

Batch & Shell
Ordner erstellen ll Datei hinein kopieren (1)

Frage von heyalice zum Thema Batch & Shell ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte