Update dbusers.vbs

Add user and password for SQL login

agent/dbusers.vbs

@@ -1,22 +1,26 @@
 strComputer = "localhost"
+strUser = "" 
+strPassword = ""  
 
 Set objConnection = CreateObject("ADODB.Connection")
 
 objConnection.Open _
-    "Provider=SQLOLEDB;Data Source=" & strComputer & ";" & _
-        "Trusted_Connection=Yes;Initial Catalog=Master"
+    "Provider=SQLOLEDB.1;Data Source=" & strComputer & ";Initial Catalog=Master;user id ='" & strUser & "';password='" & strPassword & "'"
 
 Set objRecordset = objConnection.Execute("SELECT Name, is_disabled FROM master.sys.server_principals")
 If objRecordset.Recordcount = 0 Then
     Wscript.Echo ""
 Else
-
+	
     Do Until objRecordset.EOF
 		Wscript.Echo "<DBUSERS>"
         Wscript.Echo "<NAME>" & objRecordset.Fields("Name") & "</NAME>"
-        Wscript.Echo "<IS_DISABLED>" & objRecordset.Fields("is_disabled") & "</IS_DISABLED>"
+		Wscript.Echo "<IS_DISABLED>" & objRecordset.Fields("is_disabled") &  "</IS_DISABLED>"
         objRecordset.MoveNext
 		rem objFilename.MoveNext
 		Wscript.Echo "</DBUSERS>"
     Loop
+
+
 End If
+