Jump to content

psycho

Active Members
  • Posts

    51
  • Joined

  • Last visited

Recent Profile Visitors

1,713 profile views

psycho's Achievements

Newbie

Newbie (1/14)

  1. sitting on teh edge of my seat
  2. remedy isn't that bad now, but i'd still stay away from it if possible. one thing you can do is just create a web part for sharepoint if you are using that, this allows users to input a ticket, the helpdesk then works the ticket and can track everything including totals, types, etc.....
  3. if any are left, i'll take one
  4. well if he answer's my email i'll know more and post up
  5. just saw this in the local craigslist and couldn't stop rofl LegalHackerWanted
  6. i ran one for a while locally until i took everything offline when i got deployed last year
  7. been a while http://img146.imageshack.us/img146/5839/aprildv2.th.png[/img]
  8. looking for a SectorSpy like app to run within linux to see HDD data.........any ideas
  9. i wrote my first program when i was 7 yrs old......and hell.....someone here prob wrote the app you use to generate stuff
  10. psycho

    VBScript Help

    i am trying to code a vbscript to tell me where a username is logged into on a domain running xp machines and 2k3 svr, here is what i have......can you help????? '================================================================ 'VBScript to find where a user is logged into 'Written by Psycho '================================================================ Dim WshShell : Set WshShell = WScript.CreateObject("WScript.Shell") Dim WshNetwork : Set WshNetwork = WScript.CreateObject("WScript.Network") Dim objArgs : Set objArgs = WScript.Arguments ' create object with collection Dim fso : Set fso = WScript.CreateObject("Scripting.FilesystemObject") Const ForReading=1, ForWriting=2 If objArgs.Count >= 1 Then strUserName = objArgs(0) 'assign the passed user name to a variable Else 'quit the script, no variable given, or too many variables passed strUserName = InputBox("Enter the name of the individual you wish to query",,WshNetwork.UserName) If strUserName = "" Then WScript.Quit End If If IsNull(strUserName) OR strUserName = "" Then WScript.Quit OutputFilePath = "c:ip1.txt" ' Flush the cache WshShell.Run "cmd /c nbtstat.exe -R", 2, False WScript.Sleep 1000 ' Send a message to the user WshShell.Run "cmd /c net send " & strUserName & " Test locator message.", 2, True WScript.Sleep 1000 ' check the local machines cache, looking for UNIQUE WshShell.Run "cmd /c nbtstat.exe -c | find ""UNIQUE"" > " & OutputFilePath, 2, True WScript.Sleep 1000 On Error Resume Next Dim objFile : Set objFile = fso.OpenTextFile(OutputFilePath, ForReading) Dim strIPAddress : strIPAddress = Trim(Mid(objFile.ReadLine,42,15)) 'read the line ' Nobody home If Err.Number <> 0 Then WshShell.Popup "User '" & UCASE(strUserName) & "' is most likely not logged on anywhere.", 8, "User not found" objFile.Close fso.DeleteFile(OutputFilePath) WScript.Quit End If objFile.Close WshShell.Run ("cmd /c nbtstat.exe -A " & strIPAddress & " > " & OutputFilePath) WScript.Sleep 1000 Set objFile = fso.OpenTextFile(OutputFilePath, ForReading) Do While objFile.AtEndOfStream <> True aline=Trim(objFile.Readline) 'read a line SearchString = "<20>" '20 says file sharing is installed and enabled. See Below!! MyPos = Instr(1, aline, SearchString, 1) ' A textual comparison starting at If MyPos <> 0 Then strComputerName = Trim(Left(aline, (MyPos-1))) MsgBox "Machine Name: " & strComputerName End If Loop objFile.Close Set objFile = Nothing fso.DeleteFile(OutputFilePath) ' when running nbtstat, these are the codes '00 Base computer name and Workgroups '01 Master Browser '03 Message Alert service (name of logged in user) '20 Resource Sharing `server service` name '1B Domain master-browser name '1C Domain controller name '1E Domain/workgroup master browser election announcement
×
×
  • Create New...