Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim objNetwork, objDrives, intIndex, objFSO, objFile, objUser, strUsername Set objSysInfo = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & objSysInfo.UserName) strUsername = objUser.samAccountName Set objFSO = CreateObject("Scripting.FileSystemobject") 'Change the file path on the next line' Set objFile = objFSO.CreateTextFile("SERVERPATH\test.csv" & strUsername & ".csv") Set objNetwork = CreateObject("WScript.Network") Set objDrives = objNetwork.EnumNetworkDrives For intIndex = 0 To objDrives.Length - 1 Step 2 objFile.WriteLine """" & strUsername & """,""" & objDrives(intIndex) & """,""" & objDrives(intIndex + 1) & """" Next objFile.Close Set objFile = Nothing Set objUser = Nothing Set objFSO = Nothing Set objDrives = Nothing Set objNetwork = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel formula to report date modified||14||52|
|Merging text files strings with filename||18||56|
|Outlook Macro to delete emails not meeting keywords||56||117|
|Get average for unknown number of cells per degree..||3||39|
Join the community of 500,000 technology professionals and ask your questions.