added scripts and SUPERMICRO

getweb.vbs

@@ -0,0 +1,26 @@
+Option Explicit
+On Error Resume Next
+
+Dim StartTime,EndTime: StartTime = Now ' For seeing how long the script takes to run
+Wscript.Echo "StartTime = " & StartTime
+' ***************************************************************** '
+Dim objParent, strSite, ComputerName, strOutput
+ComputerName = "pnymvp01"
+Set objParent = GetObject("IIS://" & ComputerName & "/W3SVC")
+    If err.number <> 0 Then
+        Wscript.Echo "Error enumerating sites on: " & ComputerName & " - " & err.number & " - " & err.description
+    Else
+        Wscript.Echo "Enumerating sites on: " & ComputerName
+    End If
+For Each strSite in objParent
+    If IsNumeric(strSite.Name) Then
+        strOutput = strSite.Name & " - " & strSite.ServerComment
+        Wscript.Echo strOutput
+    End If
+Next
+' ***************************************************************** '
+EndTime = Now
+'Wscript.Echo vbCrLf & "EndTime = " & EndTime
+'Wscript.Echo "Seconds Elapsed: " & DateDiff("s", StartTime, EndTime)
+Wscript.Echo "Script Complete"
+Wscript.Quit(0)