Schlagwort-Archive: VBScript – Visual Basic Script

Visual Basic Script ist eine von Microsoft entwickelte Skriptsprache. Sie ist eng verwandt mit Visual Basic for Applications und wird üblicherweise interpretiert.

DevOps Tutorials

Verknüpfung erstellen mit VBScript

9. 04. 2021 Don Matteo Schreibe einen Kommentar

Mit Visual Basic Script Verknüpfungen auf Desktop erstellen

VBScript können überall dort eingesetzt werden, wo automatisierte Aufgaben erforderlich sind. Die Anwendung von Batchdateien ist nicht immer das geeignete Mittel, und der Einsatz von Gruppenrichtlinien steht nicht überall zur Verfügung, hier kann ein Visual Basic Script diese Aufgabe übernehmen, beispielsweise um Verknüpfungen zu Anwendungen für Benutzer bereitzustellen.

Das folgende VBScript erstellt eine Verküpfung (shortcut) auf dem Desktop, hier zum Beispiel für den Windows Rechner.

Die VBScript Zeilen durch Copy Paste in Notepad einfügen und als Datei create-shortcut.vbs speichern, und mit einem Doppelklick die Verknüpfung erstellen.


' VBScript to created shortcut
Const strProgramTitle = "Shortcut to Calculator"
Const strProgram = "%SystemRoot%\System32\calc.exe"
Const strWorkDir = "%USERPROFILE%"
Dim objShortcut, objShell
Set objShell = WScript.CreateObject ("Wscript.Shell")
strLPath = objShell.SpecialFolders ("Desktop")
Set objShortcut = objShell.CreateShortcut (strLPath & "\" & strProgramTitle & ".lnk")
objShortcut.TargetPath = strProgram
objShortcut.WorkingDirectory = strWorkDir
objShortcut.Description = strProgramTitle
objShortcut.Save
WScript.Quit

' VBScript to created shortcut

Const strProgramTitle = "Shortcut to Calculator"

Const strProgram = "%SystemRoot%\System32\calc.exe"

Const strWorkDir = "%USERPROFILE%"

Dim objShortcut, objShell

Set objShell = WScript.CreateObject ("Wscript.Shell")

strLPath = objShell.SpecialFolders ("Desktop")

Set objShortcut = objShell.CreateShortcut (strLPath & "\" & strProgramTitle & ".lnk")

objShortcut.TargetPath = strProgram

objShortcut.WorkingDirectory = strWorkDir

objShortcut.Description = strProgramTitle

objShortcut.Save

WScript.Quit

Zu guter letzt, die Const Zeilen im Script können editiert werden, für beliebige weitere Anwendungen.

Die auf dem Desktop erstellte Verknüpfung nun ausführen um den Windows Rechner zu öffnen.


C:\> cscript //Nologo //B create-shortcut.vbs

1 2	C:\> cscript //Nologo //B create-shortcut.vbs

Aus der Eingabeaufforderung oder aus einer Batch kann dieses VBScript mit cscript gestartet werden.

DevOps Tutorials

Netzlaufwerk mapping aus VBScript

5. 04. 2021 Don Matteo Schreibe einen Kommentar

Windows Netzlaufwerk verbinden mit Visual Basic Script

VBScript können genutzt werden um Netzlaufwerke zu Windows-Netzwerkfreigabe auf Server oder NAS Geräte zu verbinden. In Situationen wo die Batchverarbeitung nicht die geeignete Wahl ist, oder aber Gruppenrichtlinien nicht die gewünschte Anwendung ist, kann ein Visual Basic Script die Anforderung erfüllen, beispielsweise zur Anwendung von Login Scripts bei VPN Remote Clients diese nicht Mitglied der AD Domäne sind.

Microsoft VBScript beinhaltet Objekt Klassen, Methoden (Funktionen / Prozeduren) und Wertestrukturen. Hier kommt unser Objekt MapNetworkDrive als Methode zur Anwendung. Die Methode oder das Verb manipuliert wiederum Werte.

Es können beliebige Objekt verwendet werden, hier wird das Objekt objNetwork definiert, Entwickler von Scripts halten sich gerne an Muster und ihren Variablen. Ein Präfix von str gibt einen Zeichenfolgenwert an, während der Präfix obj ein Objekt angibt. Nachdem WScript unser objNetwork erstellt hat, kann es mit der Methode MapNetworkDrive bearbeitet werden.

VBScript für Netzlaufwerk Mapping

Folgendes VBScript netdrive.vbs als Beispiel, für die herstellung der Windows-Netzwerkfreigabe zum Netzlaufwerk Z:, dabei kann die Verbindung als ein anderer Benutzer erfolgen, als mit dem man sich am Client authentifiziert hat.


Option Explicit
Dim objNetwork, strDriveLetter, strRemotePath, strUser, strPassword, strProfile, WshShell

' Set credentials & network share to variables.
strDriveLetter = "Z:"
strRemotePath = "\\server\share"
strUser = "domain\username"
strPassword = "topsecret"
strProfile = "false"

' Create a network object (objNetwork) do apply MapNetworkDrive Z:
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _
strProfile, strUser, strPassword

' Open message box, enable remove the apostrophe at the beginning.
' WScript.Echo "Map Network Drive " & strDriveLetter
MsgBox " Explorer launch Network Drive " & strDriveLetter, vbInformation, "Network Drive Mapping"
' Explorer will open the mapped network drive.
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "explorer.exe /e," & strDriveLetter, 1, false
WScript.Quit

Option Explicit

Dim objNetwork, strDriveLetter, strRemotePath, strUser, strPassword, strProfile, WshShell

' Set credentials & network share to variables.

strDriveLetter = "Z:"

strRemotePath = "\\server\share"

strUser = "domain\username"

strPassword = "topsecret"

strProfile = "false"

' Create a network object (objNetwork) do apply MapNetworkDrive Z:

Set objNetwork = WScript.CreateObject("WScript.Network")

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _

strProfile, strUser, strPassword

' Open message box, enable remove the apostrophe at the beginning.

' WScript.Echo "Map Network Drive " & strDriveLetter

MsgBox " Explorer launch Network Drive " & strDriveLetter, vbInformation, "Network Drive Mapping"

' Explorer will open the mapped network drive.

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "explorer.exe /e," & strDriveLetter, 1, false

WScript.Quit

Die entsprechende Variable wird in den Zeilen 6 – 9 zugewiesen, in dem der jeweilige Platzhalter zwischen den Anführungs- und Schlusszeichen definiert wird.

VBScript Variablen definieren

Bei strDriveLetter gewünschtes Netzlaufwerk zuweisen.
Bei strRemotePath der UNC Pfad zur Netzwerkfreigabe.
Bei strUser der Benutzername, ist dieser Mitglied einer Windows Domäne, muss der Domänen Präfix angeführt werden, dies in der Form domain\user.
Bei strPassword das dem Benutzer zugewiesene Passwort.

VBScript WSH aus Batch ausführen

Kommt für für die Netzwerk-Anmeldung bereits ein Batch zB. netlogon.bat zur Anwendung, wird aus dem Batch unser VBScript netdrive.vbs wie folgt ausgeführt:


start /wait "" cscript //Nologo netdrive.vbs

1 2	start /wait "" cscript //Nologo netdrive.vbs

Soll bei der Ausführung keine Visual Basic Console Fenster ausgegeben werden, verwendet man die Option /B, damit startet die Anwendung ohne ein neues Fenster zu öffnen.


start /B /wait "" cscript //Nologo netdrive.vbs

1 2	start /B /wait "" cscript //Nologo netdrive.vbs

Nach erfolgreicher Anmeldung wird das Netzlaufwerk zur Windows-Netzwerkfreigabe erstellt, und anschliessend im Explorer geöffnet.

DevOps Tutorials

VBScript GetSID.vbs

10. 10. 2014 Don Matteo 1 Kommentar

Security Identifier, SID, ist ein eindeutiger Sicherheits-Identifikator, den Microsoft Windows automatisch vergibt, um jedes System, jeden Benutzer und jede Gruppe dauerhaft zu identifizieren.

Mit dem VBScript GetSID.vbs lassen sich die SID von Windows ausgeben.


'Description: Zeigt alle Benutzerkonten und SID
'Created on : Apr 5, 2010
'Prerequisite: Windows

Set WshShell = CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject("Scripting.FilesystemObject")
fName = WshShell.SpecialFolders("Desktop") &amp; "\GetSID.txt"
Set b = fso.CreateTextFile(fName, true)
b.writeblanklines 1
b.writeline string(61,"*")
b.writeline "Benutzerkonten mit SIDs und Profile-Pfade."
b.WriteLine "GetSID.vbs - 2010 by Don Metteo"
b.WriteLine "https://think.unblog.ch"
b.writeline string(61,"*")
b.writeblanklines 1

strProfileBranch = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery _
 ("Select * From Win32_UserAccount")

For Each objAccount in colAccounts
 If objAccount.Name = "HelpAssistant" or objAccount.Name = "SUPPORT_388945a0" then
 else
 b.writeline "Username : " &amp; objAccount.Name
 b.writeline "SID : " &amp; objAccount.SID
 b.writeline "Profile Path : " &amp; GetHomePath(objAccount.SID)
 b.writeblanklines 1
 end if
Next

Function GetHomePath(strSID)
 On Error Resume Next
 GetHomePath = WshShell.ExpandEnvironmentStrings(Trim(WshShell.RegRead (strProfileBranch &amp; strSID &amp; "\ProfileImagePath")))
 On Error Goto 0
End Function

b.writeline string(61,"*")
b.close
WshShell.Run "notepad.exe " &amp; fName

Set fso = Nothing
set Wshshell = Nothing

'Description: Zeigt alle Benutzerkonten und SID

'Created on : Apr 5, 2010

'Prerequisite: Windows

Set WshShell = CreateObject("Wscript.Shell")

Set fso = Wscript.CreateObject("Scripting.FilesystemObject")

fName = WshShell.SpecialFolders("Desktop") & "\GetSID.txt"

Set b = fso.CreateTextFile(fName, true)

b.writeblanklines 1

b.writeline string(61,"*")

b.writeline "Benutzerkonten mit SIDs und Profile-Pfade."

b.WriteLine "GetSID.vbs - 2010 by Don Metteo"

b.WriteLine "https://think.unblog.ch"

b.writeline string(61,"*")

b.writeblanklines 1

strProfileBranch = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\"

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colAccounts = objWMIService.ExecQuery _

("Select * From Win32_UserAccount")

For Each objAccount in colAccounts

If objAccount.Name = "HelpAssistant" or objAccount.Name = "SUPPORT_388945a0" then

else

b.writeline "Username : " & objAccount.Name

b.writeline "SID : " & objAccount.SID

b.writeline "Profile Path : " & GetHomePath(objAccount.SID)

b.writeblanklines 1

end if

Function GetHomePath(strSID)

On Error Resume Next

GetHomePath = WshShell.ExpandEnvironmentStrings(Trim(WshShell.RegRead (strProfileBranch & strSID & "\ProfileImagePath")))

On Error Goto 0

End Function

b.writeline string(61,"*")

b.close

WshShell.Run "notepad.exe " & fName

Set fso = Nothing

set Wshshell = Nothing

Nach dem Ausführen des Scriptes werden die SID im Notepad geöffnet.