Add files via upload

2026-07-26 11:28:14 +00:00 · 2021-09-24 15:54:33 -04:00
parent ed3f138035
commit e4e94655c8
6 changed files with 916 additions and 0 deletions
@@ -0,0 +1,121 @@
+'Set object values
+	Set oArguments = WScript.Arguments.Named
+	Set oFSO = CreateObject("Scripting.FileSystemObject")
+	Set oShell = CreateObject("WScript.Shell")
+	Set oCMD = oFSO.GetFile(oShell.ExpandEnvironmentStrings("%COMSPEC%"))
+	Set oPowershell = oFSO.GetFile(oShell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\WindowsPowershell\v1.0\powershell.exe")
+	
+'Define ASCII Characters
+	chrSpace = Chr(32)
+	chrSingleQuote = Chr(39)
+	chrDoubleQuote = Chr(34)
+	
+'Define Variable(s)
+	If (oArguments.Exists("Debug") = True) Then DebugMode = True End If		
+	
+'Dynamically convert named VBScript arguments to their eqivalent powershell format
+oArgumentCount = oArguments.Count
+
+If (oArgumentCount > 0) Then
+	StringBuilder = ""
+	
+	oArgumentCounter = 1
+	
+	Set ArgumentNameExpression = New RegExp
+	         
+     With ArgumentNameExpression
+        .Pattern    = "^Debug$"
+        .IgnoreCase = True
+        .Global     = False
+        .Multiline  = False
+     End With
+     
+	 Set ArgumentValueExpression = New RegExp
+	 
+	 With ArgumentValueExpression
+	    .Pattern    = "^.*True|.*False$"
+	    .IgnoreCase = True
+	    .Global     = False
+	    .Multiline  = False
+	 End With	
+		
+	For Each oArgument In oArguments	
+		ArgumentName = Trim(oArgument)		
+		ArgumentValue = oArguments.Item(oArgument)
+				   
+        If (Not(ArgumentNameExpression.Test(ArgumentName))) Then	
+			Select Case ((Len(ArgumentValue) > 0) And (Not(ArgumentValueExpression.Test(ArgumentValue))))
+				Case True				
+					If (InStr(ArgumentValue, ",") > 0) Then
+						ArgumentValueParts = Split(ArgumentValue, ",")
+	
+						ArgumentValuePartsCount = UBound(ArgumentValueParts)
+						
+						ArgumentValuePartStringBuilder = ""
+						
+						ArgumentValuePartCounter = 0
+								
+						For Each ArgumentValuePart In ArgumentValueParts
+							ArgumentValuePartFormat = chrDoubleQuote & ArgumentValuePart & chrDoubleQuote
+							
+							ArgumentValuePartStringBuilder = ArgumentValuePartStringBuilder & ArgumentValuePartFormat
+							
+							If	((ArgumentValuePartsCount > 0) And (ArgumentValuePartCounter < ArgumentValuePartsCount)) Then
+								ArgumentValuePartStringBuilder = ArgumentValuePartStringBuilder & "," & chrSpace
+								ArgumentValuePartCounter = ArgumentValuePartCounter + 1
+							End If	
+						Next
+						
+						ParameterFormat = "-" & ArgumentName & chrSpace & "@(" & ArgumentValuePartStringBuilder & ")"
+					Else
+						ParameterFormat = "-" & ArgumentName & chrSpace & chrDoubleQuote & ArgumentValue & chrDoubleQuote	
+					End If					   			   	 
+				Case False
+				   	ParameterFormat = "-" & ArgumentName
+			End Select
+					
+			If (Len(ParameterFormat) > 0) Then
+					
+				If ((oArgumentCount > 1) And (oArgumentCounter < oArgumentCount)) Then
+					StringBuilder = StringBuilder & chrSpace		
+				End If
+						
+				StringBuilder = StringBuilder & ParameterFormat
+				
+				ArgumentCounter = oArgumentCounter + 1
+				
+				ParameterFormat = Null
+			End If
+		End If							 
+	Next
+		
+	StringBuilderResult = Trim(StringBuilder)
+	
+	If (Len(StringBuilderResult) > 0) Then	
+		PowershellScriptParameters = StringBuilderResult
+	Else
+		If (DebugMode = True) Then WScript.Echo("VBScript arguments could not be transformed into a format suitable for powershell execution.") End If
+		PowershellScriptParameters = ""
+	End If
+			
+	Set ArgumentNameExpression = Nothing
+			
+	Set ArgumentValueExpression = Nothing		
+Else
+	If (DebugMode = True) Then WScript.Echo(oArgumentCount & " " & "arguments were specified.") End If
+End If
+	
+'Define Additional Variable(s)
+	Set ScriptPath = oFSO.GetFile(WScript.ScriptFullName)
+	ScriptDirectory = ScriptPath.ParentFolder
+	System32Directory = oShell.ExpandEnvironmentStrings("%WINDIR%") & "\System32"
+	CommandPromptExecutionParameters = oCMD.Name & chrSpace & "/c"
+	PowershellExecutionParameters = oPowershell.Name & chrSpace & "-ExecutionPolicy Bypass -NonInteractive -NoProfile -NoLogo -WindowStyle Hidden -File"
+	PowershellScriptPath = ScriptDirectory & "\" & oFSO.GetBaseName(ScriptPath) & ".ps1"
+	
+'Execute Powershell Script	
+	Command = PowershellExecutionParameters & chrSpace & chrDoubleQuote & PowershellScriptPath & chrDoubleQuote & chrSpace & PowershellScriptParameters	
+	If (DebugMode = True) Then WScript.Echo(Command) End If
+	RunCommand = oShell.Run(Command, 0, True)	
+	If (DebugMode = True) Then WScript.Echo("Exit Code: " & RunCommand) End If
+	WScript.Quit(RunCommand)