![]() ObjFile.Writeline SVRArray(i) & SQLArray(j)īS/Computer Science RE: Multiple Arrays written to text file ObjFile.Writeline ("Server Name" & vbTab & vbTab & vbTab & "Free Space") SQLStmt.CommandText = "select distinct system_id, capacity, available, cast(round(cast(available as decimal)/cast(capacity as decimal) * 100, 0) as integer) as FreeSpace from storage_info(nolock)" Set SQLStmt = CreateObject("ADODB.Command") Set objFile = objFSO.CreateTextFile("C:\Documents and Settings\username\Desktop\output.txt", True)ĭim SQLArray 'SQLArray(Capacity, Available) ![]() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objrs = CreateObject("ADODB.Recordset") ![]() Set objConn = CreateObject("ADODB.Connection") ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |