Jump to content

psycho

Active Members
  • Posts

    51
  • Joined

  • Last visited

Everything posted by psycho

  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
  11. too long, if you wanted a .bat to telnet all you need to type in it is @echo off telnet reddragon.dyndns.org for example
  12. what made no sense about it, if you ask someone what the best firewall out there is, you will get different responses stating they are the best, if you just ask what do you guys use, you will still get different responses because there is always something better than what you think is the best
  13. well to put it to ya this way, if you ask "the best" you will get this and that, one thing to ask would be "what do you use?" as for me i use Sygate on windows, with a few little homebrew things on the side and i haven't had any problems
  14. i'm happy to see other people working on trying to improve the old and make it new and personnal
  15. i for one was in Iraq back in 2003 for the invasion...........up until about a year ago, google earth showed our base to where you could see our vehicles and everything, so the images from google earth aren't the most accurate anyways, they are most of the time up to a few years old
×
×
  • Create New...