Function IsAdmin()
Dim oShell
Dim oFSO
Dim sTemp
Dim sTempFile
Dim fFile
Dim sResults

    Const OpenAsDefault = -2
    Const FailIfNotExist = 0
    Const ForReading = 1
    
    Set oShell = CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    sTemp = oShell.ExpandEnvironmentStrings("%TEMP%")
    sTempFile = sTemp & "\inv_isadmin.tmp"

    oShell.Run "%comspec% /c kix32 %systemroot%\userislocaladmin.kix"
End Function
Private Sub CompAvail()
If IsConnectible(strComputer, 1, 750) Then 'Pings strComputer
   If IsAdmin = 1 Then
      WMIwrapper
   Else: MsgBox "    The operation has received an error. It is highly likely that" & Chr(13) & _
           "    you received this error due to a lack of administrator privileges " & Chr(13) & _
           "    on the remote computer. Please check the computer before " & Chr(13) & _
           "    reattempting this connection.", vbExclamation, "Error - Check permissions"
   End If
Else:
  Err_Handler
End If

End Sub

If InGroup(@WKSTA + "\Administrators")
  ? "True"
Else
  ? "False"
EndIf

Function IsAdmin(strUsr)
On Error Resume Next
Dim strGroup
Dim objGroup
Dim objMember

' strUsr can be a user or a group
'Declare strComputer string outside of this function OR uncomment below for current computer
'strComputer="."

strGroup = "Administrators"
Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group")

For Each objMember In objGroup.Members
  If objMember.Name = strUsr Then
    Err.Raise 30000
  End If
Next

End Function

IsAdmin ("Domain Admins")
    If Err.Number = 30000 Then
      WMIwrapper
    ElseIf Err.Number = 0 Then
          MsgBox "    Whatever...."
  End If

Function RemoteLocalAdmin($pcName)
  $RemoteLocalAdmin = 0
  Dim $strNT, $objStr, $Member
  $strNT = "WinNT://" + $pcName + "/Administrators,Group"
  $objStr = GetObject($strNT)
  $objStr.GetInfo
  For Each $Member in $objStr.Members
    If Ingroup($Member.Name)
      $RemoteLocalAdmin = 1
    EndIf
    If $Member.Name = @userid
      $RemoteLocalAdmin = 1
    EndIf 
  Next
EndFunction