Top-Themen

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

VBS Script zur Auswahl von Firmennummer und Benutzernummer sowie Verarbeitung

Mitglied: cbli

cbli (Level 1) - Jetzt verbinden

02.10.2007, aktualisiert 04.10.2007, 5990 Aufrufe, 3 Kommentare

Ich möchte ein Script schreiben mit dem ich für 9 Benutzer die jeweils in 2 Firmen Zugriff auf ein weiteres Script bekommen sollen,daß durch dieses Script als Desktop Link installiert wird.

1. Es wird die Firmennummer abgefragt (als nummer)

2. Es wird der Benutzername abgefragt (als nummer)

Dieser Teil des Scripts existiert schon und funktioniert auch.

01.
Dim Firma 
02.
Dim strProgram 
03.
Dim objShortcut 
04.
Dim objShell 
05.
Dim User 
06.
 
07.
Firma = inputbox("Geben sie die Firmenbezeichnung ein " & vbnewline & vbnewline & "1 = bbb" & vbnewline & "2 = kg","Desktop Link - Fenstertitel") 
08.
 
09.
 
10.
if Firma ="" then 
11.
WScript.Quit 
12.
end if 
13.
 
14.
if isnumeric(Firma) = false then 
15.
msgbox "Bitte nur 1 oder 2 eingeben",16,"Hinweis" 
16.
WScript.Quit 
17.
else 
18.
end if 
19.
 
20.
if Firma > 2 or Firma = 0 then 
21.
msgbox "Bitte nur 1 oder 2 eingeben",16,"Hinweis" 
22.
WScript.Quit 
23.
else 
24.
end if 
25.
------------------------------------------------------------------------------------------------------------------------- 
26.
 
27.
' Abfrage Benutzer 
28.
 
29.
User = inputbox("Geben sie die Benutzernummer ein " & vbnewline & vbnewline & "1 = Max  Muster" & vbnewline & "2 = Test Testermann" ,"Desktop Link Script") 
30.
 
31.
------------------------------------------------------------------------------------------------------------------------- 
32.
 
33.
Hier beginnen meine Probleme. 
34.
Es soll nun der gewählte Benutzer als Bestätigung mit dem msgbox Befehl ausgegeben werden. 
35.
Dies sollte mit einer Schleife passieren,doch ich weiß nicht wie,da die Benutzer selber ja nicht definiert sind. 
36.
Danach soll die Verarbeitung erfolgen: 
37.
Es müssen also alle mögliche Firma / User kombinationen die möglich sind abgefragt werden und dann jeweils anders weiterverarbeitet werden. 
38.
 
39.
------------------------------------------------------------------------------------------------------------------------- 
40.
 
41.
if user = 1 and Firma = 1 then  
42.
 
43.
strProgram ="c:\LCS\verdi Claus bbb.vbs" 
44.
Const strProgramtitel = "Verdi - Name Firma 1" 
45.
Set WshShell = Wscript.CreateObject("Wscript.Shell") 
46.
Set fso = CreateObject("Scripting.FileSystemObject") 
47.
fso.CopyFile "PFAD zur Datei" , "C:\lcs\" ' Script kopieren 
48.
shortcutwrite 
49.
end if 
50.
----------------------------------------------------------------------------------------------------------------------- 
51.
Die eigentliche Verarbeitung funktioniert -   sub shortcutwrite() 
52.
 
53.
sub shortcutwrite() 
54.
 
55.
Const strWPath = "c:\LCS\"				 'Arbeitsverzeichnis 
56.
Set objShell = WScript.CreateObject("Wscript.Shell") 
57.
strLPfad = objShell.SpecialFolders("Desktop") 
58.
Set objShortcut = objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk") 
59.
objShortcut.TargetPath = strProgram 
60.
objShortcut.Description = strProgramtitel 
61.
objShortcut.WorkingDirectory = strWPath 
62.
objShortcut.IconLocation = "c:\lcs\verdi\lcsverdi.exe,0" 
63.
objShortcut.Save 
64.
 
65.
end sub
Wie kann ich mir nun das Leben leichter machen ,ohne jeden Fall einzeln mit if abzufragen
Ihr würdet mir sehr weiterhelfen.

Vielen Dank

Gruß
Claus

PS: Kann ich die Benutzernamen auch aus einer TXT Datei auslesen lassen ?
Mitglied: bastla
02.10.2007 um 16:01 Uhr
Hallo cbli

Falls ich Dich richtig verstanden habe, könnte das etwa so aussehen:
01.
Const Benutzerdatei = "Pfad zur Datei mit den Benutzernamen" 
02.
 
03.
Firma = inputbox("Geben sie die Firmenbezeichnung ein " & vbnewline & vbnewline & "1 = bbb" & vbnewline & "2 = kg","Desktop Link - Fenstertitel") 
04.
 
05.
if isnumeric(Firma) = false then 
06.
	msgbox "Bitte nur 1 oder 2 eingeben",16,"Hinweis" 
07.
	WScript.Quit 
08.
end if 
09.
 
10.
if Firma > 2 or Firma = 0 then 
11.
	msgbox "Bitte nur 1 oder 2 eingeben",16,"Hinweis" 
12.
	WScript.Quit 
13.
end if 
14.
 
15.
'Firmennamen ermitteln 
16.
Select Case Firma 
17.
Case 1 
18.
	Firmenname = "bbb" 
19.
Case 2 
20.
	Firmenname = "kg" 
21.
Case Else 'Kann eigentlich nach den Abfragen oben nicht erreicht werden ... 
22.
	MsgBox "Ungültige Firma!" 
23.
End Select 
24.
 
25.
' Abfrage Benutzer 
26.
 
27.
'Aus Textfile einlesen ... 
28.
Set fso = CreateObject("Scripting.FileSystemObject") 
29.
Benutzer = Split(fso.OpenTextFile(Benutzerdatei, 1).ReadAll, vbCrLF) 
30.
 
31.
'... oder im Script hinterlegen: 
32.
'Benutzer = Array("Max  Muster", "Test Testermann", "...") 
33.
 
34.
AnzBenutzer = UBound(Benutzer) + 1 
35.
 
36.
Eingabetext = "Geben sie die Benutzernummer ein " & vbCrLF 
37.
For i = 0 To AnzBenutzer - 1 'Achtung: Erste Benutzernummer = 0 
38.
	Eingabetext = Eingabetext & vbCrLF & Right(" " & CStr(i + 1), 2) & " = " & Benutzer(i) 
39.
Next 
40.
 
41.
User = InputBox(Eingabetext, "Desktop Link Script") 
42.
 
43.
If IsNumeric(User) Then 
44.
	UserNr = CInt(User) 
45.
Else 
46.
	Msgbox "Bitte nur 1 bis " & CStr(AnzBenutzer) & " eingeben!", vbCritical, "Hinweis" 
47.
	WScript.Quit 
48.
End if 
49.
 
50.
If UserNr < 1 Or UserNr > AnzBenutzer Then 
51.
	Msgbox "Bitte nur 1 bis " & CStr(AnzBenutzer) & " eingeben!", vbCritical, "Hinweis" 
52.
	WScript.Quit 
53.
End If 
54.
 
55.
Benutzername = Benutzer(UserNr - 1) 
56.
 
57.
'Es soll nun der gewählte Benutzer als Bestätigung mit dem msgbox Befehl ausgegeben werden. 
58.
MsgBox "Gewählter Benutzername: " & Benutzername 
59.
 
60.
strProgram ="c:\LCS\verdi Claus " & Firmenname & ".vbs" 
61.
strProgramtitel = "Verdi - " & Benutzername & " - " & Firmenname 
62.
Set WshShell = Wscript.CreateObject("Wscript.Shell") 
63.
Set fso = CreateObject("Scripting.FileSystemObject") 
64.
fso.CopyFile "PFAD zur Datei" , "C:\lcs\" ' Script kopieren 
65.
shortcutwrite
Bitte zu beachten, dass Arrays in VBS null-basiert sind, also der erste Benutzer in Benutzer(0) und der 9. Benutzer in Benutzer(8) gespeichert wird ...

Grüße
bastla
Bitte warten ..
Mitglied: cbli
04.10.2007 um 14:48 Uhr
'... oder im Script hinterlegen:
'Benutzer = Array("Max
Muster", "Test Testermann",
"...")

AnzBenutzer = UBound(Benutzer) + 1

Eingabetext = "Geben sie die
Benutzernummer ein " & vbCrLF
For i = 0 To AnzBenutzer - 1 'Achtung:
Erste Benutzernummer = 0
Eingabetext = Eingabetext & vbCrLF
& Right(" " & CStr(i + 1),
2) & " = " & Benutzer(i)
Next

User = InputBox(Eingabetext, "Desktop
Link Script")

If IsNumeric(User) Then
UserNr = CInt(User)
Else
Msgbox "Bitte nur 1 bis " &
CStr(AnzBenutzer) & "
eingeben!", vbCritical,
"Hinweis"
WScript.Quit
End if

If UserNr < 1 Or UserNr > AnzBenutzer
Then
Msgbox "Bitte nur 1 bis " &
CStr(AnzBenutzer) & "
eingeben!", vbCritical,
"Hinweis"
WScript.Quit
End If

Benutzername = Benutzer(UserNr - 1)

'Es soll nun der gewählte Benutzer
als Bestätigung mit dem msgbox Befehl
ausgegeben werden.
MsgBox "Gewählter Benutzername:
" & Benutzername

Habe die Benutzer im Script angelegt,da das einlesen der Txt datei nicht funktioniert hat.
Jetzt zeigt er mir zwar die Benutzer an ,aber sobald ich eine Nummer eingebe
kommt der Fehler:

Index außerhalb des gültigen Bereichs [number: 2]

außerdem habe ich den weiterverarbeitungsteil etwas geändert

vbscript = "verdi " & Benutzername & " " & Firmenname & " .vbs"
strProgram = "c:\LCS\ & Benutzername & " " & Firmenname & .vbs"
strProgramtitel = "Verdi - " " & Firmenname & "
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "Pfad zum Scrip\ & vbscript & " , "C:\lcs\" ' Script kopieren

vbscript soll den Scriptnamen an den Kopierbefehl übergeben der so zusammengesetzt ist:

verdi Max Muster bbb.vbs

verdi = Programmname (keine variable)
Max Muster = Benutzer (variable)
bbb = Firma (variable)
.vbs = feste Endung (keine variable)

strprogram sollte so aussehen

c:\LCS\verdi Max Muster bbb.vbs

strProgramtitel
Verdi - bbb
Wobei es hilfreich wäre ,wenn ich später die Abkürzung bbb irgendwie gegen den vollen
Firmennamen austauschen könnte.
Dies sollte erst nach Eingabe der Firmennummer geschehen.

Außerdem ist noch das Icon vom Orginal Programm einzubinden,welches sich natürlich immer
noch in C:\lcs befindet

objShortcut.IconLocation = "c:\lcs\verdi\lcsverdi.exe,0"

Oder wird das in deiner Version automatisch gemacht ?
Kann man irgendwie noch die Icon Größe übergeben ?
Musst verzeihen,daß ich soviel frage,ich hab erst wenig Ahnung von VBScript.
Ich habe bisher alles in Batches gemacht.

Noch eine letzte kleine Frage:
Gibt es eine Möglichkeit in VB Script eine Art Menü zu generieren ?
Ich habe hier eine Batch mit Menü,die ich in VB Script portieren will.

Wie immer vielen Dank für deine Hilfe

Gruß
Claus
Bitte warten ..
Mitglied: bastla
04.10.2007 um 15:58 Uhr
Hallo cbli!

Vorweg: Stell bitte Codebeispiele in < code>-Tags (ohne die Leerstelle).

Jetzt zeigt er mir zwar die Benutzer an ,aber sobald ich eine Nummer eingebe
kommt der Fehler:
Index außerhalb des gültigen Bereichs [number: 2]
Kann ich (mit dem aus Deinem Post heruntergeladenen Code) nicht nachvollziehen ...
Mit richtig gesetzten Anführungszeichen sollte der folgende Teil etwa so aussehen:
01.
vbscript = "verdi " & Benutzername & " " & Firmenname & " .vbs" 
02.
strProgram = "c:\LCS\verdi " & Benutzername & " " & Firmenname & ".vbs" 
03.
strProgramtitel = "Verdi - " & Firmenname 
04.
Set WshShell = WScript.CreateObject("WScript.Shell") 
05.
Set fso = CreateObject("Scripting.FileSystemObject") 
06.
fso.CopyFile "Pfad zum Scrip\" & vbscript, "C:\lcs\" ' Script kopieren
Noch ein Hinweis (siehe auch in Deinem anderen Thread): "Set fso = ..." (und natürlich auch "Set WshShell = ...") brauchst Du nur einmal durchzuführen ...
Wobei es hilfreich wäre ,wenn ich später die Abkürzung bbb irgendwie gegen den vollen
Firmennamen austauschen könnte.
Dies sollte erst nach Eingabe der Firmennummer geschehen.
Schau Dir dazu das "Select Case"-Konstrukt oben an ...
Gibt es eine Möglichkeit in VB Script eine Art Menü zu generieren ?
Jein - an sich hat VBS kein Fenster, in welches Du schreiben könntest, sondern bietet eben für die Interaktion MsgBox und InputBox - allerdings lässt sich aus VBS heraus unter Verwendung des Objektes "InternetExplorer.Application" eine Webseite (HTML) erzeugen und anzeigen ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBS Datei Auswahl Dialog
gelöst Frage von 133202VB for Applications5 Kommentare

Hallo Ihr, im Thread: konnte ich schon finden, was ich gesucht habe: Jetzt möchte ich allerdings, dass am Anfang ...

VB for Applications
VBS Script kann Prgramm nicht starten
gelöst Frage von C.BoernerVB for Applications15 Kommentare

Hallo ihr Admins, Ich habe folgendes Scenarios ein Programm läuft im Hintergrund (Drivve-Image) das übergibt Werte an ein VBS ...

Batch & Shell
Hilfe Bei einem vbs Script
gelöst Frage von Hattori-HanzoBatch & Shell19 Kommentare

Hey Leute Könnt ihr mir bitte sagen was daran falsch ist? beschäftige mich erst seit kurzem mit vbs scripts. ...

JavaScript

VBS-Script wird nicht vollständig ausgeführt

Frage von HousefrauJavaScript3 Kommentare

Hallo zusammen, wir lassen über eine Gruppenrichtlinie einen Script ausführen, welcher die Drucker der einzelnen Parteien mappen soll. Leider ...

Neue Wissensbeiträge
Netzwerke
Riesiges Botnetz in Deutschland
Tipp von FFSephiroth vor 1 StundeNetzwerke1 Kommentar

Überprüft mal eure Router und NAS

Soziale Netzwerke

Freitag, der 25.05 - Facebook baut weltgrößtes P.ähm Antip.archiv der Welt auf

Information von certifiedit.net vor 3 StundenSoziale Netzwerke1 Kommentar

Guten Morgen, da fragt man sich doch allen ernstes, was Facebook damit bezwecken möchte, ich tippe ja darauf, dass ...

Erkennung und -Abwehr

VPNFilter Maleware - Großes Botnetz auf NAS und Routern in 54 Ländern aufgedeckt

Information von Frank vor 3 StundenErkennung und -Abwehr2 Kommentare

Nach Angaben von Cisco und der Sicherheitsfirma Talos wurde ein sehr großes Botnet auf Routern und NAS-System entdeckt. Die ...

Windows Server

Scheduled Task zum Log - Löschen direkt aus der SCOM Console

Tipp von Juanito vor 10 StundenWindows Server

SCOM Agent Task - Create Log Deletion Job Einleitung: Viele Applikationen und Dienste die auf Servern laufen erstellen Log ...

Heiß diskutierte Inhalte
Datenschutz
E-Mail Verschlüsselung DSGVO 2018
gelöst Frage von SoccerdeluxDatenschutz33 Kommentare

Hallo zusammen, ich verzweifele langsam und wende mich an euch und hoffe vielleicht ein paar Antworten zu finden. Ich ...

HTML
Link nicht vollständig
Frage von jensgebkenHTML33 Kommentare

Hallo Gemeinschaft, ich erstelle mit Word einen Serienbrief, den ich per Mail versende. Nun mein Problem der Wordserienbrief holt ...

Rechtliche Fragen
DISKUSSION: Was bringt der Disclaimer "Wenn Sie nicht der Empfänger sind."
Frage von N8DragonRechtliche Fragen23 Kommentare

So oder ähnlich, lese ich immer wieder Kleingedrucktes am Ende diverser Mails. Letzten Endes wollen sie mir alle sagen, ...

Server-Hardware
HPE DL 360e GEN8 - P420 - Lüfter drehen auf nach Festplattenwechsel
Frage von maniacmacpainServer-Hardware20 Kommentare

Hallo, ich kenne den Effekt, dass man bei der GEN8 von HP ein Array eingerichtet haben muss, damit die ...