Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 3008 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
gelöst Automatisch erstellen von Ordner (9)

Frage von MeisterFuchs zum Thema Windows Server ...

VB for Applications
gelöst VBS Ordner erstellen - wenn nicht vorhanden! (1)

Frage von freshman2017 zum Thema VB for Applications ...

Windows Server
gelöst Ordner erstellen Problem (3)

Frage von IrgendEinName zum Thema Windows Server ...

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

Frage von heyalice zum Thema Batch & Shell ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Monitoring
Netzwerk-Monitoring Software (18)

Frage von Ghost108 zum Thema Monitoring ...

Windows 10
Seekrank bei Windows 10 (17)

Frage von zauberer123 zum Thema Windows 10 ...

Windows Server
gelöst Kopiervorgang schlägt fehl, weil Datei- und Ordnername zu lang sind (14)

Frage von Schroedi zum Thema Windows Server ...