adding content scripts

danielheth · Feb 4, 2015 · 36d021b · 36d021b
1 parent 6cc57fa
commit 36d021b
Show file tree

Hide file tree

Showing 4 changed files with 475 additions and 0 deletions.
diff --git a/content/7za.exe b/content/7za.exe
diff --git a/content/haswutools.vbs b/content/haswutools.vbs
@@ -0,0 +1,139 @@
+Option Explicit
+
+If SetWorkingDirectory Then
+	WScript.Echo("Yes")
+Else
+	WScript.Echo("No")
+End If
+
+'==============================================
+Function SetWorkingDirectory
+	Dim vFileSystem: Set vFileSystem = CreateObject("Scripting.FileSystemObject")
+	Dim vPath: vPath = GetTaniumDir("Tools\WU")
+	Dim vShell: Set vShell = CreateObject("WScript.Shell")
+	If vFileSystem.FileExists(vPath + "wu4tanium.exe") Then
+		SetWorkingDirectory = True
+	End If
+End Function 'SetWorkingDirectory
+
+Function ClientToolsRegValue(name)
+	Dim vValue
+	Dim vPath: vPath = "HKLM\" & GetTaniumRegistryPath & "\Client Tools\" & name
+	Dim vShell: Set vShell = CreateObject("WScript.Shell")
+	On Error Resume Next
+	vValue = vShell.RegRead(vPath)
+	On Error Goto 0
+	If (vValue = "") Then: vValue = "[Not Available]"
+	ClientToolsRegValue = vValue
+End Function
+
+Function QS(vText)
+	QS = Chr(34) + vText + Chr(34)
+End Function
+
+Function WcToSl(vExpression)
+	WcToSl = Replace(vExpression, "*", "%")
+End Function
+
+Function ClientToolsCommand(cmd)
+	Dim vExec: Set vExec = vShell.Exec(cmd)
+	Do While Not vExec.StdOut.AtEndOfStream
+		WScript.Echo vExec.StdOut.ReadLine()
+	Loop
+End Function
+
+Function GetTaniumRegistryPath
+'GetTaniumRegistryPath works in x64 or x32
+'looks for a valid Path value
+
+    Dim objShell
+    Dim keyNativePath, keyWoWPath, strPath, strFoundTaniumRegistryPath
+
+    Set objShell = CreateObject("WScript.Shell")
+
+    keyNativePath = "Software\Tanium\Tanium Client"
+    keyWoWPath = "Software\Wow6432Node\Tanium\Tanium Client"
+
+    ' first check the Software key (valid for 32-bit machines, or 64-bit machines in 32-bit mode)
+    On Error Resume Next
+    strPath = objShell.RegRead("HKLM\"&keyNativePath&"\Path")
+    On Error Goto 0
+    strFoundTaniumRegistryPath = keyNativePath
+
+    If strPath = "" Then
+        ' Could not find 32-bit mode path, checking Wow6432Node
+        On Error Resume Next
+        strPath = objShell.RegRead("HKLM\"&keyWoWPath&"\Path")
+        On Error Goto 0
+        strFoundTaniumRegistryPath = keyWoWPath
+    End If
+
+    If Not strPath = "" Then
+        GetTaniumRegistryPath = strFoundTaniumRegistryPath
+    Else
+        GetTaniumRegistryPath = False
+        WScript.Echo "Error: Cannot locate Tanium Registry Path"
+    End If
+End Function 'GetTaniumRegistryPath
+
+Function GetTaniumDir(strSubDir)
+'GetTaniumDir with GeneratePath, works in x64 or x32
+'looks for a valid Path value
+
+	Dim objShell
+	Dim keyNativePath, keyWoWPath, strPath
+
+    Set objShell = CreateObject("WScript.Shell")
+
+	keyNativePath = "HKLM\Software\Tanium\Tanium Client"
+	keyWoWPath = "HKLM\Software\Wow6432Node\Tanium\Tanium Client"
+
+    ' first check the Software key (valid for 32-bit machines, or 64-bit machines in 32-bit mode)
+    On Error Resume Next
+    strPath = objShell.RegRead(keyNativePath&"\Path")
+    On Error Goto 0
+
+  	If strPath = "" Then
+  		' Could not find 32-bit mode path, checking Wow6432Node
+  		On Error Resume Next
+  		strPath = objShell.RegRead(keyWoWPath&"\Path")
+  		On Error Goto 0
+  	End If
+
+  	If Not strPath = "" Then
+		If strSubDir <> "" Then
+			strSubDir = "\" & strSubDir
+		End If	
+
+		Dim fso
+		Set fso = WScript.CreateObject("Scripting.Filesystemobject")
+		If fso.FolderExists(strPath) Then
+			If Not fso.FolderExists(strPath & strSubDir) Then
+				''Need to loop through strSubDir and create all sub directories
+				GeneratePath strPath & strSubDir, fso
+			End If
+			GetTaniumDir = strPath & strSubDir & "\"
+		Else
+			' Specified Path doesn't exist on the filesystem
+			WScript.Echo "Error: " & strPath & " does not exist on the filesystem"
+			GetTaniumDir = False
+		End If
+	Else
+		WScript.Echo "Error: Cannot find Tanium Client path in Registry"
+		GetTaniumDir = False
+	End If
+End Function 'GetTaniumDir
+
+Function GeneratePath(pFolderPath, fso)
+	GeneratePath = False
+
+	If Not fso.FolderExists(pFolderPath) Then
+		If GeneratePath(fso.GetParentFolderName(pFolderPath), fso) Then
+			GeneratePath = True
+			Call fso.CreateFolder(pFolderPath)
+		End If
+	Else
+		GeneratePath = True
+	End If
+End Function 'GeneratePath'==============================================
+'Include Client Tools:Sensor Functions
diff --git a/content/install-wu4tanium.vbs b/content/install-wu4tanium.vbs
@@ -0,0 +1,185 @@
+Option Explicit
+
+Dim objShell,fso,file,files,folder,objEnv
+Dim strTaniumDir,strPath,strCurrentDir
+Dim intCopyResult,intMoveCount,intMaxMoveCount
+Dim strGeoIPDllFile,strGeoIPDllFilePath
+
+strTaniumDir = GetTaniumDir("Tools\WU")
+
+Set objShell = CreateObject("WScript.shell")
+strCurrentDir = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
+
+Set fso = CreateObject("Scripting.FileSystemObject")
+
+'Remove older versions
+If fso.FileExists(strTaniumDir&"wu4tanium.exe") Then fso.DeleteFile strTaniumDir&"wu4tanium.exe",True
+If fso.FileExists(strTaniumDir&"Interop.WUApiLib.dll") Then fso.DeleteFile strTaniumDir&"Interop.WUApiLib.dll",True
+
+WScript.Echo "Processing " & strCurrentDir & "wu4tanium.zip"
+GUnzip strCurrentDir&"wu4tanium.zip", strTaniumDir
+
+
+
+
+
+
+
+Sub GUnzip(strGZipFilePath, strTargetDir)
+' Takes full file path to Gzip file (not tarball), path to target directory
+' will extract to target directory as a subdirectory 
+' overwriting anything in the subdirectory and showing no UI.
+
+	Dim objShell, objFSO, strCurrentDir, strZipUtil
+	Dim strTempDir, strGZipFileName, strCommand, intResult
+
+    Set objShell = WScript.CreateObject("WScript.Shell")
+    Set objFSO = CreateObject("Scripting.FileSystemObject")
+
+	strCurrentDir = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
+
+    If Not objFSO.FileExists(strGZipFilePath) Then
+    	WScript.Echo "Error - Cannnot successfully complete install - " & strGZipFilePath & " does not exist"
+    	Exit Sub
+    End If
+
+    strZipUtil = strCurrentDir & "7za.exe"
+
+    If Not objFSO.FileExists(strZipUtil) Then 
+    	WScript.Echo "Cannot continue - " & strZipUtil & " does not exist"
+    	Exit Sub
+    End If
+
+    If Not objFSO.FolderExists(strTargetDir) Then
+    	objFSO.CreateFolder(strTargetDir)
+    End If
+
+	strGZipFileName = objFSO.GetFile(strGZipFilePath).Name
+
+
+	strCommand = Chr(34) & strZipUtil & Chr(34) & " x -y -o" & Chr(34) & strTargetDir & Chr(34) & " " & Chr(34) & strGZipFilePath & Chr(34)
+
+	WScript.Echo "running unzip:"
+	WScript.Echo "   command: " & strCommand
+
+	objShell.Run strCommand, 0, True
+End Sub 'GUnzip
+
+
+Sub GUnzipFile(strGZipFilePath, strTargetDir)
+' Takes full file path to .gz file, path to target directory
+' will extract to target directory as a subdirectory 
+' overwriting anything in the subdirectory and showing no UI.
+
+	Dim objShell, objFSO, strCurrentDir, strZipUtil
+	Dim strTargetFile, strGZipFileName, strCommand, intResult
+
+    Set objShell = WScript.CreateObject("WScript.Shell")
+    Set objFSO = CreateObject("Scripting.FileSystemObject")
+
+	strCurrentDir = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
+
+    If Not objFSO.FileExists(strGZipFilePath) Then
+    	WScript.Echo "Cannot continue - " & strGZipFilePath & " does not exist"
+    	Exit Sub
+    End If
+
+    strZipUtil = strCurrentDir & "7za.exe"
+
+    If Not objFSO.FileExists(strZipUtil) Then 
+    	WScript.Echo "Cannot continue - " & strZipUtil & " does not exist"
+    	Exit Sub
+    End If
+
+    If Not objFSO.FolderExists(strTargetDir) Then
+    	objFSO.CreateFolder(strTargetDir)
+    End If
+
+	strGZipFileName = objFSO.GetFile(strGZipFilePath).Name
+	' remove .gz from end
+	If InStr(LCase(strGZipFileName),".gz") = Len(strGZipFileName) - 2 Then ' ends in gz
+		strGZipFileName = Left(strGZipFileName,Len(strGZipFileName) - 3)
+	End If
+
+    strTargetFile = strCurrentDir & strGZipFileName
+
+	strCommand = Chr(34) & strZipUtil & Chr(34) & " x -y -o" & Chr(34) & "." & Chr(34) & " " & Chr(34) & strGZipFilePath & Chr(34)
+
+	WScript.Echo "running unzip:"
+	WScript.Echo "   command: " & strCommand
+
+	objShell.Run strCommand, 0, True
+
+    If objFSO.FileExists(strTargetFile) Then
+    	On Error Resume Next
+    	intResult = objFSO.CopyFile(strTargetFile,strTargetDir,True) ' overwrite
+    	On Error Goto 0
+    	If intResult = 0 Then
+    		WScript.Echo "Success"
+    	Else
+    		WScript.Echo "Failure - result is " & intResult
+    	End If
+    End If
+End Sub 'GUnzipFile
+
+
+Function GetTaniumDir(strSubDir)
+'GetTaniumDir with GeneratePath, works in x64 or x32
+'looks for a valid Path value
+
+	Dim objShell
+	Dim keyNativePath, keyWoWPath, strPath
+
+    Set objShell = CreateObject("WScript.Shell")
+
+	keyNativePath = "HKLM\Software\Tanium\Tanium Client"
+	keyWoWPath = "HKLM\Software\Wow6432Node\Tanium\Tanium Client"
+
+    ' first check the Software key (valid for 32-bit machines, or 64-bit machines in 32-bit mode)
+    On Error Resume Next
+    strPath = objShell.RegRead(keyNativePath&"\Path")
+    On Error Goto 0
+
+  	If strPath = "" Then
+  		' Could not find 32-bit mode path, checking Wow6432Node
+  		On Error Resume Next
+  		strPath = objShell.RegRead(keyWoWPath&"\Path")
+  		On Error Goto 0
+  	End If
+
+  	If Not strPath = "" Then
+		If strSubDir <> "" Then
+			strSubDir = "\" & strSubDir
+		End If	
+
+		Dim fso
+		Set fso = WScript.CreateObject("Scripting.Filesystemobject")
+		If fso.FolderExists(strPath) Then
+			If Not fso.FolderExists(strPath & strSubDir) Then
+				''Need to loop through strSubDir and create all sub directories
+				GeneratePath strPath & strSubDir, fso
+			End If
+			GetTaniumDir = strPath & strSubDir & "\"
+		Else
+			' Specified Path doesn't exist on the filesystem
+			WScript.Echo "Error: " & strPath & " does not exist on the filesystem"
+			GetTaniumDir = False
+		End If
+	Else
+		WScript.Echo "Error: Cannot find Tanium Client path in Registry"
+		GetTaniumDir = False
+	End If
+End Function 'GetTaniumDir
+
+Function GeneratePath(pFolderPath, fso)
+	GeneratePath = False
+
+	If Not fso.FolderExists(pFolderPath) Then
+		If GeneratePath(fso.GetParentFolderName(pFolderPath), fso) Then
+			GeneratePath = True
+			Call fso.CreateFolder(pFolderPath)
+		End If
+	Else
+		GeneratePath = True
+	End If
+End Function 'GeneratePath