Free for PREMIUM members
Learn how to a build a cloud-first strategyRegister Now
Const ForReading = 1
Const ForWriting = 2
On Error Resume Next
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = objFSO.OpenTextFile("C:\ListOfPCs.txt", ForReading)
Do Until oFile.AtEndOfStream
sComputer = oFile.ReadLine
sTxt = sTxt & "--" & sComputer & "--" & vbCRLF
Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators,group")
For Each oUser in oGroup.Members
sTxt = sTxt & oUser.Name & vbCRLF
sTxt = sTxt & "----------"
Set oTextFile = oFSO.OpenTextFile("C:\ListOfPCs-Results.txt", ForWriting, True)
Set oFSO = Nothing
Set oFile = Nothing
Set oGroup = Nothing
Open in new window
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
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.