How to point to userprofile path?

[AaronOoi 1]

Hi All,

I tried to search around and unable to find the solution.

My question is how do I point the program to look into the userprofile/

For example:

What im trying to get is to run text.exe from "C:\Documents and Settings\username\Desktop\text.exe" or "C:\users\username\desktop\text.exe" (for windows 7 64)

runwait("%userprofile%\desktop\test.exe")

or

filecopy("%userprofile%\desktop\test.exe", "c:\")

Please help to advice..

[wolf9228 52]

Hi All,

I tried to search around and unable to find the solution.

My question is how do I point the program to look into the userprofile/

For example:

What im trying to get is to run text.exe from "C:\Documents and Settings\username\Desktop\text.exe" or "C:\users\username\desktop\text.exe" (for windows 7 64)

runwait("%userprofile%\desktop\test.exe")

or

filecopy("%userprofile%\desktop\test.exe", "c:\")

Please help to advice..

Macro Reference

http://www.autoitscript.com/autoit3/docs/macros.htm

MsgBox(0,"DesktopDir",@DesktopDir)
MsgBox(0,"DocumentsDir",@MyDocumentsDir)
MsgBox(0,"ScriptDir",@ScriptDir)
MsgBox(0,"ProgramFilesDir",@ProgramFilesDir)
MsgBox(0,"SystemDir",@SystemDir)
MsgBox(0,"WindowsDir",@WindowsDir)

[AaronOoi 1]

Here another example:

FileCopy("\\snapfiler\install$\pub\Microsoft\Windows7(swdepot)\helloworld.exe", "%userprofile%\desktop")

runwait("%userprofile%\desktop\helloworld.exe")

-------------------

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\esooi\Desktop\Windows 7 Project\Install.au3"

>Exit code: 0 Time: 0.174

-------------------

[AaronOoi 1]

Got this work, Thank you very much

-----------------

FileCopy("\\snapfiler\install$\pub\Microsoft\Windows7(swdepot)\helloworld.exe", @UserProfileDir &"\desktop")

runwait(@UserProfileDir & "\desktop\helloworld.exe")

-----------------

[wolf9228 52]

Here another example:

FileCopy("\\snapfiler\install$\pub\Microsoft\Windows7(swdepot)\helloworld.exe", "%userprofile%\desktop")

runwait("%userprofile%\desktop\helloworld.exe")

-------------------

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\esooi\Desktop\Windows 7 Project\Install.au3"

>Exit code: 0 Time: 0.174

-------------------

MsgBox(0,"",@ScriptDir & "\snapfiler\install$\pub\Microsoft\Windows7(swdepot)\helloworld.exe")
FileCopy(@ScriptDir & "\snapfiler\install$\pub\Microsoft\Windows7(swdepot)\helloworld.exe",@UserProfileDir &  "\desktop\helloworld.exe")
runwait(@UserProfileDir &  "\desktop\helloworld.exe")

Or

MsgBox(0,"","snapfiler\install$\pub\Microsoft\Windows7(swdepot)\helloworld.exe")
FileCopy("snapfiler\install$\pub\Microsoft\Windows7(swdepot)\helloworld.exe",@UserProfileDir &  "\desktop\helloworld.exe")
runwait(@UserProfileDir &  "\desktop\helloworld.exe")

[wolf9228 52]

Got this work, Thank you very much

-----------------

FileCopy("\\snapfiler\install$\pub\Microsoft\Windows7(swdepot)\helloworld.exe", @UserProfileDir &"\desktop")

runwait(@UserProfileDir & "\desktop\helloworld.exe")

-----------------

welcome

Edited February 23, 2011 by wolf9228

[BlackHoleSun 1]

Is there a way to find the profile path on a remote machine?

[guinness 1,432]

Maybe this would Help >> http://msdn.microsoft.com/en-us/library/ee886409(v=vs.85).aspx

expandcollapse popup

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_UserProfile", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $Output = $Output & "LastDownloadTime: " & WMIDateStringToDate($objItem.LastDownloadTime) & @CRLF
      $Output = $Output & "LastUploadTime: " & WMIDateStringToDate($objItem.LastUploadTime) & @CRLF
      $Output = $Output & "LastUseTime: " & WMIDateStringToDate($objItem.LastUseTime) & @CRLF
      $Output = $Output & "Loaded: " & $objItem.Loaded & @CRLF
      $Output = $Output & "LocalPath: " & $objItem.LocalPath & @CRLF
      $Output = $Output & "RefCount: " & $objItem.RefCount & @CRLF
      $Output = $Output & "RoamingConfigured: " & $objItem.RoamingConfigured & @CRLF
      $Output = $Output & "RoamingPath: " & $objItem.RoamingPath & @CRLF
      $Output = $Output & "RoamingPreference: " & $objItem.RoamingPreference & @CRLF
      $Output = $Output & "SID: " & $objItem.SID & @CRLF
      $Output = $Output & "Special: " & $objItem.Special & @CRLF
      $Output = $Output & "Status: " & $objItem.Status & @CRLF
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_UserProfile" )
Endif


Func WMIDateStringToDate($dtmDate)

    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

Plus, check out _WMIDateStringToDate() in my signature!

Edited February 24, 2011 by guinness

[BlackHoleSun 1]

Maybe this would Help >> http://msdn.microsoft.com/en-us/library/ee886409(v=vs.85).aspx

OK, how do you determine the SID of the logged on user? I tried a bunch of Win32 functions but couldn't figure it out.

[guinness 1,432]

Like this >>

MsgBox(0, "_GetSIDEx()", _GetSIDEx())

Func _GetSIDEx($sComputerName = @ComputerName, $sUsername = @UserName)
    Local $oWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!//" & $sComputerName & "/root/cimv2")
    Local $oColItems = $oWMIService.ExecQuery("Select * From Win32_UserAccount")
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            If $sUsername = $oObjectItem.Name Then Return $oObjectItem.SID
        Next
    EndIf
    Return SetError(1, 1, 0)
EndFunc   ;==>_GetSIDEx

Edited March 2, 2011 by guinness

[BlackHoleSun 1]

Like this >>

MsgBox(0, "_GetSIDEx()", _GetSIDEx())

Func _GetSIDEx($sComputerName = @ComputerName, $sUsername = @UserName)
    Local $oWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!//" & $sComputerName & "/root/cimv2")
    Local $oColItems = $oWMIService.ExecQuery("Select * From Win32_UserAccount")
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            If $sUsername = $oObjectItem.Name Then Return $oObjectItem.SID
        Next
    EndIf
    Return SetError(1, 1, 0)
EndFunc   ;==>_GetSIDEx

I ran this earlier today and forgot about and came back and saw it finished. I think the time was around 9000 seconds. I tried to run it again and killed it at 1544 seconds, with it still not showing the SID. I am on a domain ID, but the information from the previous code you had showed all of the accounts on the local machine only.

[guinness 1,432]

Changed Code from a Tip I picked up from water >>

MsgBox(0, "_GetSIDEx()", _GetSIDEx())

Func _GetSIDEx()
    Local $oWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!//" & "." & "/root/cimv2")
    Local $oColItems = $oWMIService.ExecQuery("Select * From Win32_UserAccount Where Name='" & @UserName & "'", "WQL", 0x30)
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            Return $oObjectItem.SID
        Next
    EndIf
    Return SetError(1, 1, 0)
EndFunc   ;==>_GetSIDEx

Let me know, I am not really a WMI Expert as such

Edited March 2, 2011 by guinness

[BlackHoleSun 1]

Changed Code from a Tip I picked up from water >>

MsgBox(0, "_GetSIDEx()", _GetSIDEx())

Func _GetSIDEx()
    Local $oWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!//" & "." & "/root/cimv2")
    Local $oColItems = $oWMIService.ExecQuery("Select * From Win32_UserAccount Where Name='" & @UserName & "'", "WQL", 0x30)
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            Return $oObjectItem.SID
        Next
    EndIf
    Return SetError(1, 1, 0)
EndFunc   ;==>_GetSIDEx

Let me know, I am not really a WMI Expert as such

MUCH better, got the SID in about 2-3 seconds. Thanks!

[guinness 1,432]

You're Welcome. Though I didn't get it in seconds I got it in 101ms!

[water 1,636]

Changed Code from a Tip I picked up from water >>

Let me know, I am not really a WMI Expert as such

Nor am I, don't know how I could give a working tip for WMI

[guinness 1,432]

I think I am fair and honest, so if you or anyone inspired me or gave me advice, I like to give credit where credit is due

[water 1,636]

I think I am fair and honest

Yes Sir, you are! Thanks for giving credit!

As I'm no WMI specialist I just wondered how I got the "expertise" on this subject

[guinness 1,432]

I gave you credit, but didn't say you were an expert

[ripdad 55]

Here's another way (from the registry)

MsgBox(0, '', Reg_GetUserSID())

Func Reg_GetUserSID()
    Local $p = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList'
    Local $s, $v, $u = '\' & @UserName
    For $i = 1 To 20
        $s = RegEnumKey($p, $i)
        If @error <> 0 Then ExitLoop
        $v = RegRead($p & '\' & $s, 'ProfileImagePath')
        If StringRight($v, StringLen($u)) = $u Then Return SetError(0, 0, $s)
    Next
    Return SetError(-1, 0, -1)
EndFunc